o 



"*" -v- »':»;":» y.V^ '.' -,*-"/ :: 



"i** 1 " "-^'i '.li.u .N ■ . % ft ...... . ... 



•> J ~ ? EXECUTE -p/T 



PACKET 25 

INPUT — — 8-CtrtH>* -ftWW ~C* 'f 

TIME 1128 , *, 

DATE 78104 FRIDAY, Q4/$/76 



■ v ***.-BUlWr(TOB:iTS 85700 DCMcP MARK XV I , 0, fft " "A1«Tr v "TI«T(MKSl CS MARK XVI*8.-13? *** 
*N MESSAGES TODAY 

ll*29»00 ?EXECUTE 0/R 

1H29I01 7C0MM0N* t 

" TJT77T02 - 7FTLE: VINES UNE" PRINT 

1H29I02 7FILE TTY« TTY DUMMY 

11«29»02 7EILE SsXALGOL/PATCHES 

tH ? 9,0 3 VEND 

11129:04 4JQ/R* 2 BOJ 1129 11/22/76 

11*29*09 P8D0026 OUT Oil UiNE|0/R» 2 

-tl-t**t$* OKA IN SER XAtGOL PATCHES*0/R* 2 

1U30I54 OKA REL XALGOL PATCHeS»0/R= 2 

11*30*54 PBD0026 REL Oil LINE 158410/Rs 2 

•■■T*t"*frt*5- 0/H« 2 EOJ 1130 

1H30J55 FOR 0/R« 2! PROCESS* 23 SECS, 1 0* 66 SECS* OLAY» 

11*30156 PKTI0025 REMOVED 



r 



LABEL OOOOOOOOOLINE 001 78104?EXECUTE 0/R 

FILF« XALGOL/PATCHES 



FRIDAY 04/14/78 1 1 | 29 AM 



» * P A T C H ~* WTflfr "X A t gOt ,tt ITT C0NTA INS 65 CARDS 



COMMENT 

* * * * * 



* * * * * 



*********************** 
****************************** 

" DESTITUTION Of NcSL PATCHES 

5 / 5/72 

****************************** 

These patches are included to provide improvements 

IN BOTH EFFICIENCY AND USER CONVeNifNcE, THEY HAVE BEEN 
etJtff-CTEO FROM A VARIETY OF SOURCES, PRINCIPALLY FROM THE 
WESTINGHQUSE RESEARCH LABORATORY, 



TOT — NSRDLTC 



THIS PATCH REDUCES THE SUE OF THE 
COMPILER AND SETS THE SAVE TIME OF 
IT DAYS AND "TRE LINE FILE TO 1 DAY, 



DISK AREAS CREATED BY 
THE NEWTAPE FILE TO 



THE 



402 NSRDL-PC 1/4/71 DHB 

"tir0RFFT?"THrr TH"E LINE PRINTED FILE WILL NOT BE LOST IF IT 

IS LaSELEQUATFD TO DISK AND THE COMpfLER IS DS"ED THIS 

patch causes such a line file to be locked and entered in 

fWF--|yTSirin*reT0RY when the compiler heading is written 

by the datime procedure. 



Tro~3 — nSrDl w pc 



T97T 



this Patch modifies the compiler listing as follows* 
a» a single spaced listing is assumed by default and 

- -Trtr--$-ePWN-*stHetr* Mtm BE Rrsrr to give 

double spacing, 
8. this adds the actual processing time used by the compile 

— — TO THE SU M MA RY *NtrfltttOVES THtTSTlMATCD AUXILIARY 



m e mory Required. 

this sets the compilers error L|Mjt value 

-VAttft-Of" ? 5-; Tttl S VALUE MAY BE CHANGED- A T 

b* t h e »limit» $ option, 



TO A DEFAULT 
COMPILE TIME 



405 



-40* — w* - — — 

THIS PATCH MODIFIES AND CORRECTS THE COMPILERS METHOD OF 
CALCULATING A PROGRAMS CORE .ESTIMATE* 

»*• *♦ «i'«**wrnr"w urwwmwwrwwrtrm wmrwwwm it* w«i wm mm mmwrn wwrm m m ■* • m m m m m » - * 

WRt NSRDL-PC DAVE BROWN 

>HIS PATCH IMPROVES THE COMPILERS EFFICIENCY BY 

P R OViaiNG A0D T T10NAL SEGHENTAT tOfrTWP"-?y-REWRlTT*t; " 

SOME *00R CODING, 

tmmm*m-mmm mm m m m mm mmm m mmmmmmm— mmmmmmmmmm m mm m m m mmmw mm.m mmmmmmmmmmmmmmm 

wcr- DAVE tfrrotttr 5V5/T7 

This allows a character bcl» 16 qcTade octal and 12 hexade h 

STRINGS SO LONG AS THE FLAG BIT IS NOT SET, 
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WR # . • . . 

THIS jMPLEMfNTS THE STORE*STAR OPERaT0R OF THE FORMl 

BtJJ »* C*) & AEXp CCONCATJ. ETC. 



09417120 

00490010 

00490020 

00490030 

00490040 

00490050 

00490060 

00490070 

00490060 

00490090 

00490100 

00490110 

00490120 

00490130 

00490140 

00490150 

00490160 

00490170 

00490180 

00490190 

00490200 

00490210 

00490220 

00490230 

00490240 

00490250 

00490260 

00490270 • 

00490280 

00490290 

00490300 

00490310 

00490320 

00-490330 

00490340 

--00490350 
00490360 
00490370 
00490380 

--0049-0390 

00490400 

00490410 

"00490470 

00490430 

--00490440 

00490450 
EX00490460 

00490470 
*-»tJO"4*O4"80 

00490490 
00490500 
00490510 
00490520 



/R 



THE STAR (*) AS THE FIRST -OPERAAND- AFTER' THE 

^rp^xrewETrr operator causes a polishcdup#lod) to be 

EMITTED INSTEAD OF RE-EVALUAT I NG THE ENTIRE SUBSCRIPT 
EXPRESSION, 
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NSRDLwPC 7725/71 DHB 

TWO NEW FOR*LlST TYPES ARE IMPLEMENTED BY THIS PATCH, 

THr-f Blowing tattce- gives examples op the- new tot?*ltst 

TYPES AND THEIR EQUIVALENT ALGOL-60 CONSTRUCTS, 
NEW FOR-LIST TYPE ALGOL-60 EQUIVALENT 
A~ STEF 



TfrBir- 

A»C 

*********** * END OF NcSL 
* * P A T C tf -»<H- TOt-Xl ttttt ;■; X TT t " C0NT A I US 



DEFINE CHUNK 
FILE OUT LINE 
SAVE M L E OUT 



B "UNTIL C 
A STEP t UNTIL C 
PATCH DESCRIPTIONS 
CARDS 



* * * f 



< fO#; 

disk serial [201300] (Rr3,is,rr4»save 1 )* 
ttewt att uts k strta l j 7ot8t>0 j crr 5 i rr 6 ; rr 7 » s a v e 
for x algol, xm f contains 6 cards 

OR 0*10 OR 0*13 THEm * G©InG To DISK 



NAME FILES FOR REMOTES 
WrITECLINE); lockcline)* 
ttrtti ARE A5TZET*0I 



TTtt 
SfPATCH 40? 

IF Q!*LINE,TYPE«12 

BTGTN- " " — — 

Nl«*-i; * DONT 
LlNE,TYpE«»12| 
-Lt-NEvAlETSTOi 
END 
S# PATCH NUMBER 403 FOR XaLGOL CONTAINS 91 CARDS 
-ST-'MATSEG—AHTJ-l-MFRtrVED "SUMMARY ADDED 2/1 3/74, DftB, 

integfR maxseg; % for Largest segment FOUND, 

ARRAY LlN[0»93J 

~~"' ST«rA-ir-pTrocETJORr TO&ncttnrm»'N2Yi.TTOt value nt*n2? 
begin * C E / name 

local m 

_-...^ rBt0 . t _ Nrr .. STJ B S J +t; 

7CIF SCe" M THEN JUMP 
N:«TALLYJ % NUMBER OF 

'LiNr -p s t-gflt-rr* -+j 

»LIN) 0I««DI+32I % 



1501 



* SQ ITS NOT LOST ON 



"~DTT 

OH 

DI «*DI»N* DII*Dl*Nl 
—S- l > a L C N 1 I — Stfffrf-rft- 

N(OS»sChR? DP.DI + DJ 

DS>»L lT"/"l DII»DI+U 
•~ S I ViLOC N21 S 1 1*5 1 + IT 

7(05I*CHRI D1«bDi+1)I 



OUT; TAULYIbTALLY+11 
CHARS IN FIRST NaME 
-S-TT«-L-INT O-Srtwfi •K-TjSr. 
TO THE "/" 



SH"Sl + t)i 



end* 

" 'St r eam' 



BEGIN 



^m>-CEDURE UNDER Ll-Nf-tt-t1»)t 



SH*LINI 
- D I I " L1NI 



Si I-Sj+38; 

trr t wd i*38i 



Then dii*di+i 

Dfi*DI*l>J 



ELSE DSt«LlT"*"J 



15(IF 5C«" " 

Si 1*51+21 

.p^^ : „ . . 

STREAM PROCEDURE NAME I T ( A , 8 , W ,LI N) I VALUE A,B»WJ 
BFGlN 



LABEL *ER»ONt#NA MTFTtr "WOTtr NT "' 
DimUll 0H«0f*37l, SM*LOC Al S'ii» 9 i + u 
CI««CI+WI GO To ZERl GO TO ONE; % GO To TWOI 

D8| «1 2 L1T *NE W 



S YM BO tTt^r 
ONE« DSI« 6LIT"PATCH "I GO TO 



trt>-TO~ 

fil; 



N-A-MT- 



00490530 
00490540 
00490550 
00490560 
•0D4905T0 
00490580 
00490590 
a04^0600 
00490610 
00490620 
00490630 
00490640 
00490650 

01556100 
01559000 
01560000 



01828800 
01828810 
01828820 
DS01828830 
01828840 
01828850 
00800000 
00800010 
01693100 
01822500 
01 8270 10 
01827020 
01827030 
01827040 
01827050 
01827060 
01 827070 
01827080 
01827090 

oi ft? 7 tee 

01827110 

01827120 

Of 8271 30 

01827140 

01827150 

01827160 

01827170 

01827180 

010271*0 

.01827200 

01827210 

01827220 

01827230 

01827240 

01*27250" 

01827260 

01827270 

Or82T2*0 

01827290 



r 



ZFR* DSl* 6LjT"S0URCE"> 
*TTC"I""0SI*"6LIT» riLF' "I" 
NAMI DS»«« 3LIT" !S"J 0S»»8LlT" "I 
7(IF SCs" « THFN JUMP OUTj TALLY I *T AL.LY + 1 > SH«Sl + l)l 

~~ " in *TKt cn~ "sr'Fi si -in dt*«dt*nj ds*«n chrj 

OS t»t lT*/«| SllstOC B» Sll*Si + l» DS»»7 CHR* 

ENDJ 

" F'L'S'E " 

BEGIN * GIVE LINE FILE NAME OF CODE FILE 

IF STATUScLINC*]) > THEN L I NE i TyPEl «i 5 i % REMOTE INITIATION 

" LiSfEVMni) f iNl 1 1 1 NE ,F I D **N2 I 

END? 
WRITECLlNEtOBLJi X 

» w W »A6»"0AY ' p ",0,", ", I2, w t"#A2»Xi.A3>» 
$ VOID 

IF H > 12 THEN "PM f M ELSE "AM,")J 
r"Vtrxt)'T~'Ol 815**9 

if ni J o Then % not for remote so name his files 

BEGIN 

" " " W*TTETLl NET DBL] ) 1 

C0DENAHE(N1,N2,LIN)J WRI TEC LI NE . 9, L I Nt * J > i 
UNDERLINECLIN); WRI TEC LI NEC DBL ] t 9, L I Nt * 3 )l 

Nt1«CAttDiMFTD1 N2l»CARD»FIOI 
IF MER6ET0G THEN % $ TAPE 
BEGIN 

NA-MtTTtT-APE.MFlD>TAPE.FID»0,uiN)i 

WRlTECLlNFtDBL],9,LiN[*]); 

end; 
if rA*rr.TYPt»i2 then 

NAME I T(N1,N2,REALC MERGE TOG), LIN) 
ELSE 

— **WttTT*eK*D "»*DECK "-.REAICMeRGETOg ) ,U N) t 
hRlTECLlNE[DBL],9,LlNt*3)l 
IE NEWTOG THEN X $ NEWTAPE 

""""" *"""' """ " BTGTW " 

NAMElT{NEWTAPE,MFlD#N£WTAPE t FID,2,LIN)J 
WRlTECLlNECDBL]»9,tlNf*]); 

- - --two* — 

WRlTE(LlN£)J 
ENDJ 

frPTTWire#0-T»r*CSEtT«trEXSrNGLBIT1i3 J ■•■%■■ SET SINGLE RESET «EST 

OPTiON$[43M»n % FOR SINGLE SPACE To BE DEFAULT 
W 6S!N6L"»1# % HZ, 43 

" WH5tTfrGl-«T*1«+- * Off AUtT STlTGtt 8f>AS£ L I ST I NG 

E»RMaX»«25) % DEFAULT VALUE, US E R CAN CHANGE BY t CARD 
FORMAT PAN ( % COMPILER SUMMARY 

- ERR0 8 $ -~ft€- TECTE fr-»»t**-i C<mP~tfcE~ TlWf w*i-5» tN »t ft* SECONDS"; * 

Xl6»2A4»//. 

"PROGRAM SIZE I CARDS PRT DjSK SEGS PGM SEGS MAX SEG " 

» WDS OF CODE " / 



• 



XHM5M?MlOMUMlO»ll2// 

"ESTIMATED CORE STORAGE REQUIRED »«16," WORDS."); 
W ( t ! TE t LIN E i P A tTT-X •tOWFTt^-R-StmMA-'RT — 



ERRoRCOUnT* T I ME(2 )/60i ( T I mE{ 1 >*T I ME J >/60i GT 1 » GT2# 
CARDC0UNT#PRTIMAX» 

TT-D-AS-CH^NK-THrNDA EWr _ *tHttWK*E1ffrERt*'D*/ CHUNK) 

SGAVL-l»MAXSEG#AKKUMt 



01827300 

01827310 

01827320 

01827330 

01827340 

01827350 

01827360 

01828860 

01828870 

01828880 

01828890 

01828900 

01829000 

01832000 

01832500 

01835000 

01835001 

01835025 

01835050 

01835075 

01835100 

01835125 

01635150 

01635175 

01835200 

01835225 

01835250 

01835275 

01835300 

01835325 

01835350 

01835375 

01835400 

01835425 

01835450 

01835475 

01835500 

01835525 

01835550 

01835575 

02 n 0000 

02131100 

09027044 

090280? 

09828910 

09274400 

09774420 
09274430 
097T4440 
09774450 
09774460 
tJ9TlTO0O 
09417500 
09418000 
I094T8500 
09419000 



e 



$# 



GTIDI 

"" " TNDJ 

IF SlZF>MAXSfG THEN MAXSEG ' *S I It I % LARGEST SO FAR 
PATCH 40ft FOR XALGOL.XIII CONTAINS 7 CARDS 

frnrf~ ■ - 

gTmi«-if noofarravs > jo then 5000 else noofarraySxsooj 

VOID 09361061 

_ tJ . tTTt , rtjTn _ fTTT AKKttw - > jooot) then 5000 else akkum/2)j % 



$# PATCH 105 FOR 
DEFINE EFFSEGMENT 

-$ -vot tt1u379dst " 

define fsave*rr10#| 
intege* idlocj 2 pointer 
s vuidt otnr?wz~~ 

$ VOID 01 S356O 1 
INTEGER KOONTI 

t~vrrnrtrr«roTWT - 

S VOID 01687001 
t VOIDT 01737251 

-t-vtrnrvtrmm 



IF U0TEMpj*GET<L-2)),[46»2] ■ THEN 
TrTTTJ-TrMprsGET TV 17 ) '. "t 1* T 21 * THEN 
XALGOL.XIII CONTAINS 269 CARDS 
^DEFINE ZOTSEGHERfc**** X TO FORCE A SEGMENT 



CURRENTl»iOTEMP 
IOTEMP**IOTEMP DIV 



COMMENT SAVES FRACTIONAL PART EXPONENT 
INTO IDARRAY (FILE PARAMETER BLOCK) 



DEFINE 



LOOKDECaX 



USED ONLY IN SEARCHLlB» 
X END OF LOOKDEC DEFINE 



SEE 02013184 



-feWtJtt •T-DtttARS- STREAM PROCEDURE- LOOK SEF 2001 01 



SVOiD 02023000 
S VOID 02263001 

. y~t^^ ( P OP t » 3 ^ r - - - 

COU.NTl*OJ T»*63l % 



L0tKtWOPt*m 



THEN CONSTANTCLEANP END#J 



S VOIdT 

-t-WtTJT — 

$ VOID 03018001 

S VOID 03033001 
D E F I HE-CWreTTHTCttTW»B E 6 1 H " IT MRCLt A N 

procedure cInstantcleanpj forward* 

DEF I NE PASSTYPEi E 5«( CE t CUASS-BOOPROC I D) • t 46 12 ) ) #| 
"PErTt*r~SWT5TWT » SOW T M ER ECST*Ttm ST? «"» 
MERGESTMr*SORTMERGESTMT(TRUE)#; 

PR !^E n l! R L:J?l!J!!E!?S ESTMT<WE:RttE); VALUE m e r ge* boolean merge; forward; 

PROCEDURE CONSTANTcleANPI 

% 

■BT^TN-"tFT«TGWETrr» 

END B2DJ 
SVOID 04277000 
BEGIN EFFSEGMENT; 



NOPfTDiIF 
WOPtTU# IF 



Tl»l 
Tl»l 



THEN 

then 



RR10 
RRlO 



BUGGERS.! 361 10]) ELSE 
8UGGE«(S f (36ll0j) ELSE 
END EFFSEGttrNT DTTBUG t 

COMMENT P4CK JS A STREAM PROCEDURE WHICH INSERTS THE SYLLABLE 
INTO THE EDOC ARRAY, THE SPECIFIC ELEMENT OF EDOC 

1^- p ft i C i s I l T" -w-EWTTE "frf* - y? -pUf- T28tT< DlV 4>M0t) 128] 

SYLLABLE POSITIONAL MOD 4 )» WHERE L IS THE SYLLABLE 
NUMBER RELATIVE To THE BEGINNING OF THE SEGMENT; 

-p-A C K ( W O RD t P O S I TfON » S VL tfr&ttT* — " " — " " 

VfcLUE P0SITI0N»SYLLABLE» 



09419500 
09419750 
13681100 

O936t0G5 
09161040 
09361050 
09161080 
09361100 
13113000 
4 1 31 43200 

01800060 
01339050 
01340500 
01341000 

014 J 6500 
01525000 
01563000 
01598000 
01684000 
01537000 
01786000 
02801010 
02801610 
02013184 
02020000 
02262000 

02691000 
02716000 
02^0 40 DO 
03018000 
03031000 
3034000 
03034100 
03874000 
03081000 
03082000 
03082100 
04143000 
04163000 
04164000 
0*2 47090 
04248010 
04265000 
D42T8TO0 
04261000 
04286000 
04-2fl?lfltt 
04292100 
04292U0 
0*2921 2t> 
04292130 
04292 HO 
04 2921 50 
04292160 



r 



rrr*T»TJRT) ; D! * DISPOSITION I DI * DISPOSITION! 
Sl*LOC SYLLABLE I S I * S I +6! 

D5*2 CHR I 

_ tNr _ rArK ..._ ..... ? 

RRlOl»» "IX 

rrio»*cif a*io then op t t39«3HOPc*i«38in else 

-■Otft-Wr-PWCHtrtTST-JsIF WRlTNEt«tFL»ST) THEN#> 

$ VOID 050b600l 

SVOID 05101000 
_ tjes-j-K EF FSE G*E NT I F L A G < t RR N U M ) j 

EFFSEGMENTI 
BOOLEAN RRB2J 
Df-FTNt- CttFtKPRESFNCE * X FOR EFF 

en<d checkpresencei** 

BEGIN EFFSEOMENTME SPaC*0 THEN SPAC*GETSPACE( TRUE * m 2 ) t 

.^^^^^j... 

begtn effSegment* range«-elclass*loweR and elclass<upper end; 

DEFINE CALLSWITCH(H). X 

- — -' " *f 

S VOID 05325001 
S VOID 05387001 

tVOtD 0540700 1" 

DEFINE IFCLAU8E » X 

BEGIN STEPIT! STACKCT * Oj BEXP| 
~ " IF ELCtASS * THENV THE* ERR( 1 1 6)eLSe STEPlT END IFCL 

#; 

$ VOID 064U001 

,£,p,j, j^jji^^y^ 

effsegment* 

BEGIN 

_ --tmfc-t * 2 ■'■-- REAL (FROM) I 

VARlABLE(HOLE); 
GO TO EXIT 

-fNDt 

EFFSEGMfNT* 

DEFINE C«RRl*l X TO hOLD L FOR A WHILE 

__. ftt . Gi N 

DEFINE C"N#! 
BEGIN 

t VOloT — " 

11*1 + 11 STEPUl X 
MOVeCODE(TEDOC#ED0C)1 * 

--^-vtmr oagrao frT " 



^ELIMINATE X74 
XNAME CALL XT 4 
XEXPRESSION X74 
XPRT CELL X74 
XACC ENTRY XT* 



LOCK(FlLEMTRlBUTESt*])» I «»F ILEATTR iBUTES[ 0] I 

rMcftgrrfr-vat-tic- Hc R w BOtrtcnw mttzi 

BEGIN INTEGER JfK.FlLER'FlLEND* LABEL OUiTJ BOOLEAN OPTOG»lNPROi 
DEFINE A*K#» R0S«lf280#, OUTPRO«OPTQG#> 

COMMENT - AR R A Y CHECK TWtt1tS-»"^»#At<rTgy*-rWf-0""Wt)ftO'T0^"SOR-T/HERGri 

BOOLEAN PROCEDURE ARR AYCHECK( AAW) I VALUE AAW! REAL AAW* 

ARRAYCHECK**VAW,CL.ASS<BO0ARRAYID OR AAW , CLASS> I NT ARRAYID 

pft-frftlT;; I f^R "TT1 " 

COMMENT COMMACHECK LOOKS FOR COMMAS AND STEPS AROUND THEM! 
BOOLEAN PROCEDURE COMMACMECKJ 

BEG I N IF N OT(C OMMA C RE-ti<^tS-TEPI*eDMMA?) THEN -Cf»Rf350"H 

STEPIT 



04292170 

04292180 

04292190 

04292200 

04292210 

04602000 

04406000 

05831100 

05050000 

05061000 

05106000 

05152500 

05166100 

05184000 

05187000 

05760000 

05293100 

05104000 

05315000 

05316100 

05317000 

05379000 

05388000 

O629U00 

XA 06291200 

AUS;06291300 

06291400 

06409000 

064 1*1 00 

06420100 

07402000 

07402100 

07402200 

07402300 
374-02400 

07538100 
07596100 
07609200 
07646397 
07646760 
07689000 
07691000 
07698500 
08246000 
08493140 
08901000 
QBtQ 1200 
08902000 
08902010 
08902020 
08902030 
08902040 
08902050 
06902060 
08902070 
08902080 
08902090 



END COMMACHECKJ 

COMMENT HVCHECK CHECKS VALIDITY Or HIVAL.U PROCEDURE FOR SORT* 

-fftrornro p^octdure hvchfcktelbwt; value elbwj real elbw* 

IF ELBW.CLASSjtpROCID ThEN ERRC356) EL$E 

IF BOOLEANfELBW, FORMAL) ThEN HVCHECK«.TRUE EL$t 

TT-TAKtCGTl»Glf (tcWTWT THEN ERRf 3570 ELSE 

IF ARRiYCHECK(TAKE(GTl+l>) THEN ERR058) ELSE 

HVCHECK*TrUEI - 
_.. CT:rRFtNT ... ^ nrrFRIJtflf:c . K ..,. CHECKS SorT/me ^ e OUTPUT PROCEDURE ; 

BOOLEAN PROCEDURE OUTPROCHECK (ELBW ) J VALUE ElBWJ REAL ELBW) 
IF ELBW,CLASS#pROClD THEN ERR(35l) EL&E 

— rr --B-otrnE^NtEtBir,-raRMAVr THEN outprochei k*true else 

IF TAKECGT1*GIT(ELBH))#2 THEN ERR(352) ELSE 

IF TAKECGTt + l).CLASS#BOOID THEN ERRO&3) ELSE 

rr .^. fmtrCHrc . KtTffKttGT1+2n TREN ERR(35a j ELSE 

OUTPROCHECK*TRUE» 
COMMENT EOLESCHECK CHECKS THE COMPARE ROUTINE FOR SQRT/MERGE? 

BOOLt At?-t^Otrttrimr- ECLEStHEC K C ELBW) r VALUE ELBWJ REAL ELBWJ 

IF ELBW,CLASSi*BOOPROCID THEN ERR(359) ELSE 
IF BOOLEAN (ELBW.FORmAl) THEN EQLESCHECK * TRUE ELSE 
-tT- T-AKETG-TTTGtTCEt,eW)ll»? THEN ERRt 360? ELSE 

if arraycheckctake(gti + i)) then erro6i) else 
if arraycheck(take(gtl+2)) then err(3&?) else 

" "~ ' EtrCE"STRECK*"T'R'UE-> 

STREAM PROCEDURE STUFF ILEC I DLOC»FN» SFN)J 

VALUE FNt SFN t 

BtSTN 0I*TDLOCJ TJT*T)I*5J DI*DC? 

S I *L0C FNJ S J *S 1+5 J DS*3 CHR; Sj+Sl+71 
DS*H LlT«OOOOOOODSRT"l DS«-CHR* S J «> S I -i I 
p^-^.^.^ — ^^j^. ds ^ Ch h , SrN*DH ST •L'0"C SFN I 

Ol»j'DLOCf DI*DI+5I Sl*Sl+5l DS*3 CHR* 

END stuffile; 

„ Bt)t j trfr ^_ 1 » ft ^ trrin7RE ^ NpRe . cttrcKcf . LBW ); vAL y E r tBW r RE AL ELBW ; 

It ELBW,CLASS#BOOPROClD THEN ERRC363) ELSE 

IF BOOLEANCELBW. FORMAL) THEN I NPROCHECK*TKUE ELSE 
__ _. rr .. i :j rK ^^ Et - G . T . t . vG j f tttwr># j T HEN Et?Rt 364 j Et SE 

if arraycheck(tak£(gt1*1)) then errc365) else 
inprocheck*true; 



vr . H ER G E -T-HE-N-- " 

BEGIN X MERGE 

END MERGE 
tttt 

begin * sort 

SVOID 06945000 

ETNtr SO R T; — - - 

END SORT AND MERGE 
$ VOID 09024000 

» VO I DT 

PROCEDURE GETREADYJ 
BEGIN EFFSEGMENTl 

S VOlp T 

$ VOIDT 09028073 
$ VOID 09056001 
L0CKCTENr»7TJ 



STATfMENTSJ 



t read omy 

LOeK(SiECIALt*l>J X READ ONLY 
LOCK(SUPERSTACKt*l)I % READ ONLY 



GTl » « GETS P AC E ( TR UE 7^5~)t- e RR ORTOG-TtT-RUE t 

END GETTING READY* 



00902100 
08902200 
08902210 
08902220 
08902230 
08902240 
08902250 
08902260 
08902270 
08902280 
08902290 
08902300 
08902310 
08902320 
08902330 
08902340 
08902350 
08W2360 
06902370 
08902380 
08902390 
08902400 
08902410 
08902 420 
08902430 
08902440 
08902450 
08902460 
08902470 
08902480 
08902490 
08902500 
06902310 
08902520 
08902530 
0690-2540 
08902550 
08902560 
08903000 
08904000 
08926000 
08*27000 
08926000 
08929000 
089*6 100 
08998000 
09003000 
0902"40"00 
09025000 
09025100 
09027000 
09026066 
09042000 
0V25T3T0 
09251320 
09251350 
09774000 
09?740t0 



B 



PROCEDURE CtEANUPI 
"BEST*" tfl"BrL LIT 
STREAM PROCEDURE MDESC ( WD. TOLOc ) I V ALUE WDl 

BEGIN D!*LOC WD> DS* SeT;SI* LOC WD) Dl *ToLOC ; DS*WDS END! 
"CDWlElir-TRr-rOLXOWTMG PROCEOURE PRINTS OUT THE PRT» NAME, AND 
SEGMENT NUMBER OF THE INTRINSIC PROCEDURES USED IN THE 
OBJECT ftROGRAM) 
ST RE AH P RUCEDURt" WRTI N TR S C { S G N , A L F A » P R T t F I L ) ) 

VALUE SGNO»PRT* 
BEGIN LOCAL COUNT, DES1 I 
Trn*FTCT~0"ITie* "C TrwPTfTT" I SI l*LOC PRTl S 1 1 »S I +41 TALLY s «4I 

3(if sc«"o» then % dont print leading zeroes, 

BEGIN SI I»SI*1I TALLYl»TALLY+63 £Nq ELSE JUMP QUT)J 
COUWTrwTAttYl DSJ»cOUNT CHR? 0S*«4 LIT") m "t 
SI«»ALFAI SJJ.SJ+2J DESTJ.DU * SAVE DI. 
DI«*LOC COtlNTJ DSl.7 LI T w O"I DSIeCHR* X NO OF CHARS IN NAME, 

"'" * _ TJTTSTJFSTr ijsrix atmr chRi j ~ int ; name , 

DSt«29 LlTn INTRINSIC^ SEGMENT NUMBER « «) 
Sit* LOC SGNOI DSl*4 DEO DS |«LI T", "I 

_ FTV«tn*5T~frSTs4 FTLLr * JUNK LEADING BLANKS, 

END WRTINTRSC; 

DEFINE STARTINTRSC«426#; 

" AftRAT -P1?T*-STG0TCT TO 1 7 » 1 1 2717 

INTEGER PRTADR*SEGMNT,LlNKJ 

INTEGER PROCEDURE MOVEANDBLOCM FROM, S I Z?_) i VALUE & 1 Z E * 

" ARRAY FROM[0,0]l INTEGER S | Z E * 

BEGIN INTEGER NSEGS,I,JJ 
REAL T» 

N«ETjS*fSlzr*29) DIV 30| 

IF DA DIV CHUNK<T»(DA*NSEGS) DIV CHUNK THEN 
OA*CHUNKxTl 
* ■ WOVF/ANDBLOtK*DAf 

DO BEGIN FOR J*0 STEP 2 WHILE J<30 
BEGIN M0VE(2»FR0M[I DIV 128, I 

"'" " " "■ r*x¥2? 

WRjTECCODEtDAjH 
END UNTIL liSlZtl 
"MOVEAND BLtJCKJ 
ZER0UT(DEST,NDIV32,NM0D32?I 
VALUE NDIV32#NM0D32 I 

-Btwr -or-Tw-DrSTr 

NDIV32(32(DS l»8 LlT"0»))| 
NM0D32CDS I* 8 LIT"0»>; 



AND KSIZE DO 
MOD 12BJ,C0DE(J))I 
END! 
DA*DA+li 



STREAM 



" END- 
PROCEDURE 



-tmr 



$ VOID 09333000 
$ VOID 09348000 

_ — GT 1 f M l H t -f+frb»e-*tt»0frt tP*ftRft*tfrH"fri f SStlfri+l t ■ftt+l % 

BEGIN 
* VOID 09415000 

t^n-^r-tttun-xtf-t— - 

%%%%%%%%%%%%%% ACTUAL COMPILATION DONE HERF %%%%%%%%%%%%%%%%%%%%%%%%%%% 
DEFINE PROGRAM e 



• 



"GTT R E AD Y ) 

BLOCKCFALSE)! 

cleanup; 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



09774020 
09274030 
09274040 
09?74050 
09774060 
09774070 
09274080 
09774090 
09274100 
09774U0 
09274J20 
09274130 
09274140 
09774150 
09274160 
09774170 
09274180 
09774190 
09274200 
09274210 
09774220 
09774230 
09774240 
09774250 
09774260 
09274270 
09774280 
09274290 
09274300 
09274310 
09274320 
09274330 
09274340 
09274350 
09274360 
09274370 
09274380 
09774 390 
09275000 
09275010 
09275020 
09275030 
09275040 
09*75"050 
09317000 
09334000 
W**OW 
09409000 
09410000 
094*0000 
09421000 
09421100 
09*2*000 
09423000 
09424000 
0942*10-0 
X09425000 
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r 



X 

EFTSEGMfNTJ 

-ctjkkr^t- tirttntoors- a call on nextent and checks to see if an inte 
was the result; if not error - otherwise make sign plu 

BOOLFAN PROCEDURE GETjnTJ 

- - - ectrr N-Ntmrwt *- • i f- elc t *** * * el class < o - the n 

IF ELCLAS5»-C**"> THEN GfcTiNT*TRUE ELSE 
BEGIN FLAGC137)! ELCLASS * END 

~ ~"EltO GETTNT7 " 

commfnt divide partions the parameter number into three parts, th 
result is passed back through pl»p2* and the function 
" -ttjenttfter, see code for details! 

INTEGER PROCEDURE DJV IDE(NUMB£R»Pl ,P2>* 

VALUE NUMBER! INTEGER Pi »P2»NUMBERJ 

" "BTGTN ■ 

if numbfr < o then begin flag(U8>* erhortog*truej 

NUMBER * ENDI 

"'" FT ♦ IF "NUMBER < 8 THEN NUMBER ELSE 8! 

NUMBER * NUMBER*Pt> 

P2 * IF NUMBER < 8 THEN NUMBFR ELSE 8; 

-- ~ DTVTDT * NUM6ER*P? END DIVIDE; 

$ VOID 10193000 

DEFINE PACKiNFO(iNFO.ISKlP#COuNTtASKlP»ACCUM)* 
— " — M^rCTTAt^CrT'E^TCOUNT » ACCUM* A&K I *>+ 3 * I N?0 » 1 SK I P ) tl 
10240001 
13144001 



* VOID 
S V010 

— " * -V0TD""1 "3-2-rO-OOt 

BEGIN EFFSEGMENTJ 
S VOID 13537001 
PUKXiNEXT l-NFO^ ? 



*- FOR EFF. 



t ♦ 



BEGIN EFFSEGMENT* 
DEFINE M0VE2(S*D)«M0VEC2»S»D)#I 

-j-irerTj-mfwe-t -- 

$ VOm 13682001 

eefsegMfntj 

gotstorage ♦ not spectog or gotstqRagei 
go 10 start endi 

-DtfTNE- -CH-ftStrBsTF-GT-ATrj^J-n^O THEN FLAGC23)#7 '*" 

$ void 14273201 

EFFSEGMENTl 



XSAVE 

xpRr 

XCELL 



__., — . ETf?rcmnrrf - 

S VOID 15019001 

REAL STREAM PROCEDURE GeT ALPHa< I NFO! NDEX« SI ll ) I 

— - — — — - — - VAttrr site j 

BFGIN COMMENT GETaLPHA PICKS ALPHA CHARACTERS OUT OF iNfO aND 
FORMATS THE ID WORD THAT IS PASSED To PRINTI. THE FIRST 

CHARAC T E R CON T AH tS-THT-STTET i1tr"1*F*T" 1 CtnrlWrCtt1* , -ttWT* INS 

ALPHA LEFT JUSTIFIED W^H TRAILING ZeRqS* 
DI*L0C GETALPHAI DS*8 LH w O »J 



SI -InFoINDE Xt 



WtnT 



D1*DI-7I 
DS*S12E CHR* 



END GETALPHAi 
PATCH NUMBER 406 FOR XaLGOL CONTAINS 31 CARDS 

T HIS MAK f S 6 CHA R AC TER Bt tnr 'f6'0tmrPr"0x:rAX lUt? 1» HI X ADT HEX ST* 
ACCEPTABLE SO LONG AS THE FLAG BIT IS NOT SETt S//5/72 DHB 
THIS CHANGES THE WAY THE COMPILER TREATES OCTAL AND HEX STRIPS. 

Th e y are no w cons i de re d *»"fr->TttTirir"ft*~STftTi l W 
$» this does not change the way Algol uses these constants but 



$* 

-rr 
si 



09426000 
0070000 
GER 10105005 
S> 10105010 
,0105020 
0105030 
,0105040 
.0105050 
0105060 
,0105070 
,0105080 
0105090 
,0105100 
,0105110 
0105120 
0105130 
,0105140 
0105150 
.0105160 
0105170 
0105180 
0175000 
0733100 
.0233200 
.0236000 
3115000 
3209000 
3369000 
3532000 
35*3000 
3632100 
3474000 
3675000 
3662000 
3715100 
4 1 68000 
.4168100 
.4168200 
.4773I00 
4273200 
.45270,00 
[50Q6IOO 
.5014000 
,5830100 
130302-00 
.5830300 
5030400 
THE I 503O5U0 
5O3O6OO 
.5030700 
15030800 
.5030900 

rNGS094T71tO 

02776030 

02847005 

- 028UT0TO 

02847015 



B 



$1 IN XALGOL THt STATEMENTS! 

if REPLACE . . , BY "A»l AND 

$1 REPLAGE ... BY 3"2t M | 

SI WIL L GENERA TE THE SA ME R ESULT, 1/16/74. 

PROCEDURE'TTTJtnTT'HLO'R'HEX'STK I NG j " ' 

begin Label aWa*i * 

r|sultl*5| scanner! x skip ouote» 

C#tjNTl*T>) 6TtT» 48 DIV CI * 16 OR 
06 



12 



BEGIN 

RFSULTl*5j SCANNERl 

- TF CtttWT > GTt THEN * > 1 WORD LONG, 

BEGIN ERRC520JI GTl 1*01 GO AWAY ENDI 
END UNTIL EXAMIN(NCR>»"""I 

Ot*ACtUMtl3l RESliLTl*5r SCANNER! COUNT I -COUNT-1 I 

IF C»3 THEN % OCTAL STRING, 

IF OCTlZE(ACCUM[n,ACCUMUJf 16*C0UNT » COUNT ) THEN 

-TCA^T52T7"TWN»0CTffC CHARACTER IN STRING, 

ELSE ELSE IF HEXJZEC ACCUMC 13 » ACCUMC4], 12-C0UNT#C0UNT> THEN 
FLAGf521)l % NQN*MEX CHARACTER IN HEX STRING, 
~ " ' cauNTrfeTCOUNTXC+Cl DIV 61 t NUMBER OF 6 BIT CHAR IN 
M6VECHARACTERS(C0UNT,ACCUM[4],8*C0UNT,ACCUM[1],3)I 
GTl ** 1 * Ql«ACCUMril««(*)4C0UNTtl2U2l6]> 

' ' AHA"YT"Jf 

END OCTAL OR HEX STRING* 
STRNGXT,ARGH, X 

TT COW ■■"* 8 OR 

COUSTsS AND NOT B00uEAN(Q t Cl8liJ) T H EN % NO FBIT STILL OK 

S VOID 0270/4001 

— ^g^.-.-jj-. _. 

dooctalorhexstringi % 

if b00leancgt1) then go to strngxtl % was valid 



STRl 



GO TO SCANAGAIN; 



$ VOIdT 02^82001 

$ v 0i D - og8»reoi - - - - -■■ 

t* patch 407 f0« xalgol. x 1 1 i contains 

if elclass»crosshatch 

-ST Eft T * " S T WP A R I T H END 

INTEGER SL» 

IF ELCLASS »FACT OP THEN 
... . jf- t,-|-NKTOG~THEl*" t 



% WAS AN ERROR 



22 CARDS 

then begin 

ELSE 



IF 



fc**T~5YtU»Wl IS NOT A LINK 
IF «SL*GET{L*t)),r46i2]«3 OR $L*673 THEN BEGIN 
ELBATU3,CLASS*ELCLASS*6ROSSHATCH» stepiti 
" — rni TO (TJUPTr rH T TO t L OTJ ) r GO EX IT END I 

elclass.crosshatch then gt4*boosec*btype else 
if Pi * fl then stepiti 

TF-Ty »0 O R TtXt^ SSi F A C ToP -THTN" BTG~pl EHlTDrTJtJFTy 
EMlTO(COC)! IF Tl#0 AND ELCLASSwFACTOP THEN 



TT 



EMlTo(OUP) ENDI 

ExST~rr-Ti#a "dr 

EMITV(TALL 
THEN EMlTO(DUP) 
tLCLASS«MCTO p-"TTTtyr 



elclktss*facTdp then begin 
)IIF Tl#0 and elclass»factop 

END! 

BrGTN " — - - ' X93 

ELCLASS *CROSSHATCH ENDI X93 



ELBATUJiCtASS 
BEGINS 
— Tf^tXt«**»fnctaP- THEN BEGIN 

ELBAT[I3,CLASS*ELCLASS«-CR0SSHATCHI 



02847020 
02847025 
02847030 

02001855 
02001856 
02001900 
02001905 
02001910 
02001915 
02001920 
02001925 
02001930 
02001935 
02001940 
02001945 
02001950 
02001955 
02001960 
NG02001965 
02001980 
02801985 
02001990 
02801995 
02436000 
02503000 
02703010 
02704000 
02562000 
02763000 
02764000 
02765^00 
02766000 
02767000 
02847000 

06003200 
06003400 
06089500 
06091200 
0F09i JOO 

06091400 

06091500 

06091600 

06152500 

15092015 
J-5W50W 

15095500 

15095600 
15097000 

15097500 
15097600 
r50#60z5~ 
15098050 
15096200 
15 30*200 
15306400 
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EMfTO(DUP)> IF T1*0 T H EN EMiT0(LQD> END* 
"Sr PATCH 4"0B"TWXAL"G0t.Xri I CONTAl NS 19 CARDS 
LABEL EXIT,gETC; % 
OR ELCLASSwLEFTPAReN OR ELCLASSbcOlON 

" ~~Tf ELCLASS^rOXXJIT "THrN t 

BEG J NX 

SiMPLEBI*CONSTANB»*TRUEl S I GNB I "FALSE I X 

~ " "■ ■ "- BfslT TLCLASSIsUNTILVrX 

PLUG(TRUE#1)IX 
END* 

~ EtSET -■■ 

(STEPl«UNTjLV OR e^cUaSSbRTPABeN OR ELCLASSsWHILEV) 
OR ELcLASSwRTPAREN X 
- "BrGTN--JrrC^LON MAYBE 

if elclass.colon t h enx 



rTRtrr* STG NB I «F AL SE I 8 I * 1 1 G 6E T C X 



BEGIN* 

-w 

END I* 

if forclasscuntilv) or elclass*RtPaRen thensk 

GrtC-T Tr-5T^ttTr^WS-TANC»«»STGNC) THEN* 

ENDJ X* MAYBE COLON 
NUMBER 410 FOR XALGOL CONTAINS 389 CA«DS 

10/26/72 



*# PATCH 
-tT-y tt P L I M t N T 5 S T S T E*Ttr» NUB'S" AND NOBlTSON , 

$i this is the ipc patch for algol and xalgol; d, h, brown— jan, 1973 



BOOLEAN 



TASK ID 
TVTTJTTD 
IPCPROCID 
SIZEV 

-"T A SKV 

EVEN TV 

ipcjob; 



TRUE 
TTtV 



*t i5#. 
■lief. 

«117#» 
*21*» 
*72*-» - 
*23#* 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
CTWMEKT 
COMMENT 



% 

- - ■---r 

x 
% 

x~ 

X 

% 

— x- 

% 
powersoften 

-t-A-S TSEQUE Utt 



1631 

164 J 

165J 
25* 
26 J 
271 

FIRST 
AN 



THING TO 
TNVOKABtE 



BE COMPILED. 
IPC PROGRAM. 



IF '•PROCEDURE" IS 

IF Ht ART- COMPILING 

AFTER PROCESSING THE I PC PROCEDURE SPECIFICATION THE 

CF CONTAINS 2xMARK, WhICh POINTS TO THE PARAMETER 

SPECIF rtfrTtWS- IN INFO * THE ff 1 5 USE© T COUNT T HE ' 

NUMBER OF "PROCESS- STATEMENTS, IF JPCJOB IS NON ZERO 

AT WRAP UP THEN THE CODE FILE IS MARKED AS INVOKING 

AKTB-/0* i-NV©K€& AND. if Nf£-0£0, A PARAMETER OESeRIPT ION01401 170 

SEGMENT IS WRITTEN IN THE CoDE FILE, 12/13/72 DHBROWNOUOl 1 80 

«758#. 01574000 

» g 49»r X- -ftt -* 511 01373000 

•759#l 01580000 

COMPILER MARK »» 01830000 

tNTEGER F? FtXtWARD 1X0776600003061230 



15306600 

08017000 
08103100 
081 II 100 
081U200 
08111300 
08 HI 400 
08111500 
08111600 
08 111 700 
08113000 
08128100 
08182100 
08182200 
08182300 
08182400 
08182500 
08184000 
08185000 
08722100 



01778060 
01778065 
01778070 
01298600 
012*8650 
01298700 
01401100 
01401110 
0140U20 
01401130 
01401140 
01401150 
0140H60 



SORTA 

<X2t. "CUSTOMS B*5700 IPC XALGOL 
-PROCETTtffit -THrS-K AT T-RTWrtTA-NDtE-fttf 11 "V A t UF F F 

MAXANDMlN, DELAY. DELTA. OTHERS. SYSTEMlD. EXITI 
MAXANDMIN, MAXANDMiN, DELAY. A8S, X NABS 

S Y ST EM l Ot- " 

IF BOOLEAN((Tll«ELBATtn),VO) T H EN X WRONG TYPE BOOLEAN 

BEGIN ERRClOS)! GO TO EXIT END* 

_._ rr __ T?Ttt j - T?7 , 61 r9 - 0R T? > 5 ^. TRt ^ . 

GO TO Sf IF T2i50 THEN T2-40 EL&E 
ABSt PANAI EMITOCIF T2»50 THEN SSn EL s E 



T2+1J* 

SSp)| GO To EXITI 
" I M I T L I 7 ) I EMI Tt;Trn~EWrT0rC0M 5 T ""STE^TTT "GO EXTTT X FPM 
IF ELCLASS*EVCNTiD AND REALF THEN X REALUVENTIDMS OK 
BEGIN EMlTV(ELBATcn>J STEPlTI GO E*jT ENDl X EVENTS ON 

rr-ctnrtrmBT A SKiD then- -*-•• - - - — -- 

BEGIN TASKATTRIBUTEHANDLERCFP)! GO TO LAMPER ENDJ 



06060100 
06061100 
0*0*1T31> 
06061500 
06061750 
O686700U 
06062050 
06067000 
0607TT5O 
06090176 
STACK06090179 
0"6O92O75 
06092077 



PROCEDURE BIMPFUN* % HANDLES THE BOOLEAN SPECjAl FUNCTIONS 
BEGIN X 

LABEL OTHERS, HX, FREE » AVAIL ABLE* ACQUIRE* HAPPENED* PEND» NOB I TSON» 
EXlT,e«RPN! 

— -sirrTttrT- -■-- 

FUn»"0THER8» FIX* FREE* AVAILABLE* ACQUIRE* HAPPENED* PENO»NOBITSOn; 
DFFINE HAPBIT • 8#» X BIT C44UJ IS ON IF EVENT HAS HAPPENED, 

X BIT 1 4711 J IS ON 
X IF THE AVLBIT IS 
X THE MIX INDEX OF 



AVLBIT ■ ill 



REA~LTi»T2J 



IF EVENT IS NOT AVAILABLE, 

on Then event, ff contains 
the process in control, 



BEGIN 
BEGTN 



ERRC105)* 
ERRC 554)1 



GO 
GO 



EX 
EX 



TF T"< TTT*i:LBATtT].r27 , 16] S 6 THEN X FIRST PARAMETER MUST BE EVENT 
BEGIN 

IF STEPI * LEFTPAREN THEN 
ir~STFPT r EVTNTTD THEN 
T"2l«CUBATl!3f X THE EVENT 
IF REAL(IPCJ0B).C33»153 * 
tf-TZTt+tTf* 65 AND T 1 < 

FLAGCJ55)! 
STEPIT* 

END* ~ 

GO TO FUNCT4 + U? X TO PROPER SYNTAXES 



THEN 

then 



COMPILING AN 
CANT FIX OR 
FORMAL LEVEL 



IT END! 
IT END. 

INVOKED IPC JOB 
FREE A 
1 EVENT 



OTHERS! 



FtX-t 
FREE! 



% 



GO EXlTI X ACTUAL BOOLEAN iNTRlNSjCS WOULD GO 
"MAKE THE EVENT ***NOT*»* AVAILABLE AND RETURN 
MAKE THE EVENT ***» AVAILABLE **** AnD RETURN 
EMiTV(T2)l EMjTOtDUP)! X 2 COPIES ON STACK 

entrTF- A i n t h apb iT»xNpn~r re s e t s- eve rtr t n g but h 

IF Ti*| THEN EMITPAIR(AVLBIT,L0R)> X FlX • BIT 
EMlTN(T2)l EMITO(STD)! X CHANGE IT 
FWT TOtfrNG ) T X "RETURN TRUE " IT T T WAS AVAILABLE, 
GO CKRPNI X 
AVAILABLE! X RETURN TRUf IF THE EVENT IS AVAILABLE (AVL 
TMTTVTT-g-n "EWTTOTLNGn "GO CKRPNI 
X WAIT FOR AVLBIT OR TiME OUT 
X WAIT TILL HApBlT OR TIME OUT 

t*rt*rr*2*»— * -ado*e-s^ or the event 

EMlTLdF Tl«4 THEN AVLBIT ELSE HAPBIT)! 

IF ELCLASS#COMMA THEN BEGIN ERRC556)j GO EXIT 

. — s t e p I t r-Arxry ~ % nnt out nr sfcottds 

EMiTPAlRC44*C0M)| X GO DO IT 

EMlTO(DEt)! EMlTO(DEL)* X LEAVE RESULT OF FUNC 

GO-TK-RPtt-t " " "- 

HAPPENED!* RETURNS TRUE IF THE EVENT HAS THE HAPPENED B 
EMJTVCT2)! EMITPAIR(HAPBIT,LND)I EMI tPA I R( HAPB 

GO CKR g N t-X - - — - - 

NOBlTSON!X NOBITSON(X) - NOT X • NOT 

PANAJ EMIT0(LN6)I EMI TPAIR< O.LNG ) I EMifOCEQL)! 



HERE 

FORMER STATE 

FORMER STATE 

APBTT 
ON SO NOT AVAIL 



BIT OFF) 



ACQUIRE! 
PE NO! 



END! 



TION ON STACK 

IT ON 
IT.EQDI 



CKRPNI 
EXIT! 
END B O OLEAN 



IF ELCLASS # RTPAREN THEN ERRC104) ElSE STePITJ 



IM P L l ED T UNcTlO N S r 



IE 
G0 



-trr*- 



ELCLASS»TaSKIO THEN GO TO L33* x always arithmetic 
TO L16| X FOR SAFETY ONLY 

BtmtttNTttBHTTT"IlVt)7 TRX* * B"0 OtTffr TN T1TI N^ TC " 
BEGIN BlMPFUNI GO TO TD END! X ALLOW , AND 8, AFTER IT 



06210010 

06210020 

06210030 

06210040 

06210050 

06210060 

06210070 

06210080 

06210090 

06210100 

06210110 

06210120 

06210130 

06210140 

06210150 

06210160 
06210170 

06210180 
06210190 
06210200 
06710210 
06210220 
06210230 
06210240 
06210250 
06210260 
06210270 
06710280 
06210290 
06210300 
06710320 
06710330 
06210340 
06210350 
06710360 
06210370 
06210380 
06710390 
06710400 
06210410 
06210420 
06210440 
06710450 
062TO460 
06210470 
06710480 
-O62T0-49O 
06210500 
06210510 
062T0520 
06210530 
06210540 

0621 05 50 
06227550 
06734500 
06235000 
06235500 



m 



r 



Ll6» Ll9l U2PI 122» L23» L24» L26» L27» 1281 L3H L32» L33I 06236000 
IF ACUS5»TASKjD THEN GO TO LODPQjNTi X NAME CALL ON TASKID 07217515 

~ "If fftttS**FVE1«nTD THEN GO TO t?2t % NAME OR VALUE CALL EVENTID 07217517 

COMMENT IF THE INTRINSIC jS ONLY IMPlIMeNTED IN LINE EMIT AN ZHRi 07315100 

IF TAKE(W H OLE+WHOLE,I33I2]) < ThEN FLAGC552)! 07315200 

- rrtLtt^SS»TA*KTD- THTN 07529300 

BEGIN TaSKATTRIBUTeHANDLEH(FS)! GO EXIT ENDI 07729400 

PROCEDURE IPCST»TEMENTCW)I VALUE HI INTEGER W| 07560000 

BTGTN — TVAttrE OF" "T P A^STD" I 2 3 4 5 07560100 

LABEL EXJT, L I BERATE. PROCURE. WA ! T , CAUSE. RESET J 07560200 

SWITCH STMT!* LlBERATEtPROCURE,wAiT,CAUSE»RESETl 07560300 

-0TFTNr~HAPB I TmWti % BIT 744111 IS ON IF" THE EVENT HAS HAPPENED 07560400 

AVlBITm** * BIT 14711] IS ON IF ThEn EVENT IS NOT 



BEGIN ERRC557)! GO EX I T ENDI 



REAL El 

Tf~$TrFr-*~xrnTARTN then begin err (105)1 go exit endj 

IF STtPI * IVENTID THEN 
El*ELBAT[I3l 

TO STMTtWT? 

% CALL COM 44 PASSING! 

I CALL COM 44 PASSING! 

f TALL "TO"r- 44"-p A SS I N & T 



M 

LIBERATE! 
PROCURE! 

-wttttt 



EVENT 
EVENT 
EVENT 



ADDRt 
ADDR. 
A DDR, 



0» 
1» 

8> 



NOT 
NOT 
NOT 









RESETS AVLBIT 
GETS CONTROL 
SLEEPS TILL HAP 



EMiTN(E)! 

EMjTLdF w«i then else if w«2 then avlbit else hapbith 

-T*fttT*7T"TT'"*91 THEN EMIT0CLNG>I EMtTpATR(44»C0Mn 

EMIT0<DEL)I EMl TO(DEL> I EMI TOC DEL) I J! CUT BACK STACK 

GO EXITI 

-tA^*ET- - -* TU** Vti~ H* PPEUED B IT 

RESETi % TURN OFF HAPPENED BIT 

EMiTV(E)l 
-fc^TP A 1 R ( H A-FftTt i Tf H p4 T«t N LO"R E t &t LW* I 

IF W«5 THEN EMiTOCLND)! 

EMlTN(t)! EMITO(STD)! 

E-X-rtt XT'' S TE P I ~r -RTP-A-ftEfr THEN EttRCl04> EL^e STEPtT? 

END IPC STATEMENT) 
PROCEDURE PR0CESSTA7EMENTI 
BEGIN % W A NO L CS*~-PtttttFSS- lPtEXTERNALt API , AP? » AP3>r TASK ID 3 1 



REAL E.TI 

INTEGER N# MARK* PC NT | 

■•"~t;-A-BTt:~BADTZT 

DEFINE FAULT(F) ■ BEGIN Tl»Fl GO BAD END#, 

I PC JOB^JJF 3 1 »B00LE An( REALC I PC JOB , [ FF 3 ) + 1 ) I 
" IF STEP I *"TPCPROC'TU "THtTT FAULT C5S91 J ""% 

ScATURELBAT; 

EMITOfMKS)! % MARK STACK FOR CHAR MODE CUT 
- -TF~-NTff TtTKtTM A^KT»L-TITKF>TN CRFt* " TH E H (TO TO 

IF ST E Pi * LEFTPAREN THEN FAULT(l05)l 

DO BEGIN 



FFM8I15*! 

% COUNT PROCESS STMNTS 
BE EXTERNAL PROCEDURE 



BACK WITH XITR AFTER 

Z»"1 t pa-rameters 



^-nrT-ft1c€T»A-RK*P€-NT t-»P^NT* l H iW > " Tt+EN * VALUE 
BEGIN STEPlTl X 

IF EXPRSSiKIF T,CLASS«B00ID THEN BTYPE ELSE ATYPE) 

FAtttrrm 3 )"* -T-fw3 1 

END X 
ELSE % 

BEGIN 



T-NTTME TAtt - - " " 

IF STEP! * T.CLASS THEN FAULTU23>l CUELBATflJI 
IF BOOARRAYID t ELCLASS $ lNTARRAYlD THEN 

B b GlN LM^ P A I RC E ^LOD)) -T-rmiT) 

DO UNTIL STEPl«COMMA OR eLCLASS-RTPARENI 



AVAIL1A8LE07560500 
07760600 
7 76 070 
07760800 
07560900 
075*1006 
07561100 
07561200 
07561300 
07561400 
07561500 
075*1600 
07561700 
07561800 
07561900 
07562000 
07562100 
07562200 

07762300 
07562400 
075*2500 
07562600 
07565000 
0756-5025 
07765050 
07765075 
07565100 
07565125 
07565150 
07T65TT5 
07565200 
07565250 
07565275 
07765300 
077 6532 5 
0756"5"315U 
07565375 
THEN07765380 

0T7653*5 

07765390 

07765400 

07565425 

07565450 

07565475 

07765500" 

07765525 



COM 



END 

Ecsr 

BEGIN 

-TNtrr- 



EMiTN(E)J 

TI.IF ELCLASS.EVENTID 



THEN 1 ELSE 21 STEPlTl 



Zl 



END NAME CALLS! 
EMlTUCT)! % PARAMETER TYPE 

end- — - 

UNTIL ELCLASS * COMMA OR PCNT*NJ 

IF PCNT * N THEN FAULT(12B)J 

I F L LCL Tr5S-|r-RTPirRrW THEN F AtltT CI 4 ) J 

IF STEPl * LFT8RKET THEN FAULT(560); 

EMITL(N)J X NUMBER OF PARAMETERS 

-it ~* t t^r -*-* t sk to - 1 he n r a u l t c 5 6 o i i 



else stepitj 



EMITPAIRCELBATC n»LOD)l 

IF STEPl * STBRKET THEN FAULT(560) 

TWTTPfiTnXTnr»ZVW7T~jr 50 "DO IT 

EMlTN(XiTR>J X CALLS FIRST SYL OF SEG i »eXc» TO CUT BACK STACK 

ir false then 

-mvi— "TRHTT7T - 

END PROCESS STATEMENT* 
PROCEDURE TaSKATTRiBUTEhANDLER(F)J VALUE FJ INTEGER 

"C-OttfftNT TS5K~ ft TT RlBU Tr RANTJL'ER PROCESSES ALL TASK 

IT IS EXPLICITLY CALLED IN 2 PLACES' 
IN STMT PASSING F ■ FS, 

THIS" ttANDLEV TASK ATTRTBUTE ASSIGNMENTS BY CALLING AEXP, 
IN PRIMARY PASSING F « FP , 

THIS ALWAYS LEAVES A VALUE ON THE STACK, IF 
- IS HE0UIH E D -TT-1-S MUDE' KtTtT A " «$m* , tf Nt> T 



Ft 
ATTRIBUTES, 



1* 



2« 



AN ASSIGNMENT 
THE CURRENT 



VALUE OF THE ATTRIBUTE IS LEFT ON T H E STACK, 
ACTUALNRAMETERPART AND BPRIMARY DIRECT TRAFFIC THRU THE 

*ft-OVt-fi«T-R-Y-POTWTS " TO DO THE I* WORK, 

END COMMENT? 

BEGIN 
Kt*t~- E+-tMT-tGfR "*TNU>H 

El*ELBATtU* X TASK 10 

IF STEPl » PERIOD ThEN 



-Btfrt+f- 



STEPIT* 
IF ATNDX|« 
TT-Qr 



IF 
IF 

" rr 

IF 
«56fc 



-»— - *tTff*KAT"- TRtN - 

o * w 4mfidO w then 
o * »3f iooo» then 
■ "r -»* s T Trrtr* T ht ir 
fi « w 7stack" then 



ELSE 
ELSE 
ELSE 
ELST 
ELSE 



562 



" X U N R EtTOG N 1 1 E D ~A"T-T~RTBUf £ " 
IF STEPl » ASSIGNOR THEN 
BEGIN X SET ONE 

rr-ATNO-XTrtr-THTN FLATS t5*3M t CANT fit CHANGED 

STEflTl AEXPI 

IF |TNDX«3 THEN X TSK t STATUS REQUIRES A COM FOR POSSIBLE DS 

BEGIN EMI j PAr fttE fLO D i T fcMi T P A TRt*5 <C0H? T " — " 

EMITO(DIL)* IF F#FP THEN eMjTOcdeU)* X CUT BACK STK 



END 

-rt-st- 



X 



-W«T-CXA-N6E THE AT TR I BUTE 

begin emjTlcatndxjj emitnce)* 



07765550 
07565575 
07765600 
07765610 
07765615 
07765625 
07565650 
07765675 
07765700 
07565725 
07765750 
07765775 
07565800 
07765825 
07565850 
07765875 
077*5900 
07565925 
07565950 
07765975 
07765985 
07566000 
07766025 
07766050 
07766075 
07566100 
07766125 
07566150 
077**175 
07566200 
07566225 
07766250 
07766275 
07766300 
0756-6323 
07566350 
07766375 
07786400 
07566425 
07566450 
0755**75 
07566500 
07566525 
0756*550 
0756657*5 
07766600 
"075*6875 
07566650 

07566675 
0776*700 

07566725 
,07766730 
075*6735 
0776*740 
07566745 
07766750 
07566755 



9 



ition 



EMITOCIF F»FP THEN SNO ElH STq)I 



ELSE 
IF F*FS 

"ECSE 



THEN FLAGC564) X MISSING t* 



END 



END 
EtST 



BEGIN EMlTLfATNDX); EMITV(E) ENDI 



Emu 5$"i7T"r~ missing "v* 

TASK ATTRIBUTE HANDLER! 

N»« if Q ■ "8LIBER" 

IF Q » "5CAUSE" 
IF « "5RESET" 

-i-F-ir~*--a rttrw begin 

if q ■ «7proce" then 
begin x if 1+2 



then i else 

THE1T-2 Efc$E 
THEN 4 ELSE 
THEN 5 ELSE Oj 
I PCST ATEMf-NTtN) I GO XXX 
BEGIN PR0CES6TATEMENTI 
IS EVENTlD THEN ITS IPC 



end; 

GO XXX 
WAIT 



ENDI 



TF-TffBUFi r*?T*EVEirrnr then 

BEGIN IPCSTATEMENT(33I GO XXX END) 
Nttll Cl*2J 



- ~ - Two- rtsr i 

0cT0l3?OOOO0Ol400OO, "3FIXOO 

OCT013OOOOOQ6240OOO, 

» CT0132O000p024 Otrotr,; 



OcTO 133000000640000, 
OcTO 1 30000000040000 , 

~o-cTO"i"Jo-otnroa5r6otroo-» 

C T01320OOO60760OO0t 
C TOU2000000460000, 

OC T 01320000d03000UO, 

C T0132000000560000, 
0CTO43000O26O0000OO, 

OC TO 43 P0 2 f 00 0000 , 

OcTl440000250000000, 
OcT 0030000260000000, 

OcTOOaOOOOgPO ftfrfrftftOT 

Oc T 2000000000004050 , 

o, 

692 STEP 3 UNTIL 728, 732 



"4NABS0 H 

■**n*trtr* 

"4P£ND0" 
"3TAN00" 
W "BST5TT W 
"BNObIT" 
"7ACQUI" 

*9-rtatc* 



"MID-00000", 
"SONOOOOQ*. 
♦•REOOOOOO", 
"ABtEOOOO^, 
"NeDOOOOO", 



OCT 20000000001 00000* 
OCT 20000000001 00000 » 

ocT2ooooooooorooooo# 

OCT2000000000100000* 
0CTOOOOOOOO111OOOOO* 
0CT20O00Q0O00 100000, 

Oct 2000000000 iooooo, 
0ct20oo00o0001oo0o0, 

0CT200OOt>00tr0I0OO00i 
OCT2000000000100012, 



"4TASK0" 

II It ,1 I I I I II ■ a> 

"sETE^T* 
"4SIZE0" 
"4FAST0" 

■"■4'Str01tO*i 

COMMENT POWERS OF TEN I 
COMMENT SORTA I 

COMMENT- ■-t-sSTStWeHCTifcuWtOftStt ; 
STEP 4 UNTIL 748, 750 STEP 2 UNTIL 



756 



DO UNTIL 

AND EfcffAT rr1r»DDKESSwPR0cV I X 
IF ELCLA$S#BEG?NV THEN X COMPILE AN iNyOKABLE IPC PROGRAM, 



STEPIbBEGINV OR % 
E LcLA SS wDECL -A-RHttmS 



BEGIN 
rFT v)OB»«TRUE » 



ENDI 
IF REAL(IPCJOB) 
— B E 6 IW 



-rt»t»i-r- x back up- to look at procedure 



»* THEN X INVOKED OR INVOKING IPC 



THEN X INVOKED IPC 
X HAS PARAMETERS 
SEGMENT 



IF MARKI-REAL(IPCJ0B),t33U5] DIV 2 # 
IF l0ARRAYt83**Nl*TAKE(MARK) # THEN 

"BTGTlT~I BtTl CO FARAMTTE-R OES C R t?T TON 

Ll=OJ 

DO PRTtO,LJ|s X 

j^^^^^^g^^^ 

» EVENT ID THEN 1 ELSE 
IF BOOARRAYIDSELCLASSflNTARRAYrO ThEN 4 ELSE 

-BtmLTfl-Nrnvo-r-THxirT-EL-sx-2- 



rr 

UNTiL Li 



NJ 



07766760 

07566775 

07766800 

07766825 

07766850 

077668T5 

07566900 

07766925 

057615950 

07566975 

07810200 

O78Ttr2T0 

07810220 

07810230 

07810240 

07810250 

07825000 

07875100 

07825200 

07825300 

07625400 

X71309214421 

X71609214422 

X7I 90921 4421 

X72209214424 

X72509214425 

X728092144Z6 

X73209214427 

X73609214428 

X7400?2r4429 

X74409214430 

X74809214431 

X 75 00 921 4 412 

X75209214433 

X754 09214435 

09214436 

09214437 

09214440 

09214-443 

09214513 

09252000 

09252t>25 

09252100 

09252200 

0*252*00 

09252400 

09405500 

09405505 

09405510 

09405515 

09405520 

09405525 

09405530 

0V4"Q5515 

09405540 

09405545 

0*4t*555Xr 

09405555 



*756 
X758 
X759 
X-760 



IPC 



B 



r 



IPC JOB 
INVOKED 



IPC JOB* 



IDARRAY[9JI*MQVEANDBL0CK<pRT»N+l)J 
ENO INVOKED IPC JOB! 
ID|RRAY[2J.[3I2]I"2+REAL(MARK*Q>| 

COMMENT SE60[2] ( C3I13 ■ JAR[2],[6«l] 

SEGOTn . t «"rt 3 * JART 21. 17 » 1 3 

END IPC SET UP) 

IF BOOARRAYIDSTYPESINTARRAYID or type«taskid THEN 
rT CFORHALFtsPTOG) AND NOT P2 THEN 
BEGIN 

PJ»*PJ+II X COUNT PARAMETERS 

"" ADDRSFTilF IPCJOB TREN GET5PAc£( TRUE » I )+64xpJ X PRT 

ELSE PJ» X STACK 
END 

FUSE" ' 

IF STOPGSP THEN ADDRSF'1*Q 

ELSE ADDRSF>»GETSPACE<P2»n; 
IT"¥OOARR-ATTDITYFFSlNrARKAYTD" OR TYPe*?ASK ID AND NOT I PC JOB 

GTllslF PTOG THEN IF IPCJOB then level else LEVeLF ELSE LEVEL! 



13371001 

tr-ske? 
begin 
label exit! 



■f D OES TASK DECLARATION 



JUMPCHKXJ X 
IF GTAHJ-13^0 

TYPEVJaTASKlD! 

IF NOT SPECIOG 

' E N TR Y I T Y P E V tT't 



THEN FLAGC25)! X CANT USE 0«N OR SAVE 



THEN EMlTO(MKS)! 
DOES ALL OT THE LIST 



-EKTTr 
END 



IF ELCLASS#8EMic0L0N THEN FLAG(O)* 
IF SPECT06 THEN GO eMTJ 

TirrTtr3^r-EiiTU , a-7r--tMrTtT«T-Aito ni-- x size* * 

EMITPAIR(1»8SN)! X ASK BLOCK CONTROL FOR SAVE 
EMITV(5)J X CALL BLOCK CONTROL 



DIMENSIONS i 
TASK ARRAYS 



TASK ENTRJM 
lPCOMPLETE»TASKDEC#EVENTDEC» X I P C 

- — -A-UX -STttWr -T- BAD VST OF ■ A U X M EM Oft S I Z E 

PTRDECDEFINEDEC»AUXSIZERR#AUXSI7ERR»TASKDECEVENTDEC! 
LPB«t36ll23#, PJfLD»[16I53#» X 

-YOTTjr-T <H230 »r " " 

IF SPECT©G THEN % DOING A procedure SPECIFICATION 

if bup*pj Then x all specifications processed, do clean up, 



-— tetrrtr 

f»*fzeroi x 3«m600" * f + 0, parameter base address 
do Begin x look thru params last to first & put in 

Q twTA'KEf'BUP f'*LASTlNFO) l~X""Et;BA"T ©F"~fc"ASf'"'PA"RAtt 
*HILE PJ#(IF IPCJOB THEN G.PjFLD ELSE G,ADDRESS) 
DO GI»TAKECBUP!»BUP*TAKE(BUP+1),PURPT)I X GET PJ 

— ---T Y P EV t gG vttrftS-Sr " " ■ 

IF IPCJOB THEN 
G,PJFLD»*0 X 

ELSE 



IF TYPeVwFRMTID OR 

g.addRessi»fi*f+2 

"TtrSt '" " 

IF BOOARRAYID s typev 



typev«supeRfRmtid then 
x leave one for index 



$ intarRayid then 



09405560 
09405565 
09405570 
09405575 
09405580 
09405565 
13330550 
13342000 
13342250 
13342500 
13342750 
13343000 
13343500 
13344000 
13344500 
13345000 
133*6000 
13170000 
13371000 
13595025 
13595050 
13595075 
13595100 
13595125 
13595150 
13595175 
13595200 
13595225 
13595250 
13595275 
13595300 
13595325 
13595350 
13595375 
13595400 
13595425 
14016700 
1 401 6800 
14021000 
14023000 
I406W99 
14870000 
14871000 
14072000 
14873000 
PR0C+INF014074000 
SPfrC t F"t £U"T 4 07 5 
14076000 
TH 0NE14O77OO0 
14078000 
14079000 
14081000 
T40820W 
14083000 
14084000 
14085000 
14086000 



t TASK 



r 



BEGIN 

GTj t*NI*TAKE(BUP*Tll*G,lNClO! 
'-6,A0tr^ESSt*rt*F*Nt*N*i; SLEfrVE ROOM TOR LOWER 
WHILE NI*N>»1#0 DO 

IF T2»»TAKE(BUP+T1+N) < THEN 

—PUT CAfrSC T2*t#*C F-N ) + 2 * LP* ) *BUP*f 1 *N1 

END 
ELSE G.ADDRESS»*F**F+t* 
PTTrrGVIfUP-rr G.TNCRtsGTI! % update parameter info 
if fwdtog then 

BEGIN 
" * TF rGTTl«TAKElMARK*Pj)) t CLASS#G,CLASS THEN 
FLAGC49); % CLASS ERROR FORWARD TO ACTUAL 
IF GTj,VO*G,VO THEN FLAGcSO)! 

tND 



ELSE 
PUTCG»MARK+PJ)J 



* PROCEDURE ADDITIONAL INFO ENTRY 



" €W ~" 

UNTIL PJfi 



ipcompletei 



& START COMPILE 
- POINTS TO + INFO 



»Pj»l«Oj % 
SPE6T0GI»FALSE» 

YFIFCJOF THIN J WRAP UP IPC SET UP 
BEGIN 

IPCJ0BUB00LEAN(2XMARK)I % FAL&E 
"" ~" "" TF™STEPr#"BTGTNV THEN FL*GC55n* 

ELBATt i j, class i .semicolon; 

GO TO START! X NOW WE CAN COMPILE THE IPC JOB 

" - " Et*UT 

GO TO HFI X NOT iPCt GO COMPILE THE PROCEDURE 
END SPECIFICATION WRAP UP* 

S T Q P OEF I NE I « DUMP V# tG"T ftt t Jt» J»l Hwf L8ffT t 1 1 i ADDRESS >#MONlTORV t 

ERRORTOGUTRUE* 
IF I PC JOB THEN % 

tr S P f C- T -OG - T-H E N ^-VrRTt Y ~TH A T PROPER Ty-PES AR€ BEING PASSED 
IF BOOV < G»«GTAHJ3 i INTV OR GsARRAYV OR G«EVENTV THEN % OK 



ELSE 

-A-tt*$rmm — 



FLAG(550); 

-1 



TASKDEd TASKED GO 
EVENTDECi PJ|»TRUE1 

S-CATTERFLgAT-t-- - - 

IF IPCJOB THEN X MAKE 



% 

to gotschki 
enter(Eventid); 



GO START! 



"MYSELF" TASK ARRAY ENTRY AT R + 025 



BEGIN % 
TT PEV ryTTrSKTTJT 



COtrRTTi6t SCRAMrwrftC-CUMrtjIt^eMYSELw) MOD 125! 



ACCUMc23l«0«"F M Ill43«53! 
GO DOIT ANYWAY! 

rtfttt — r — — - — ■ -■ - 

VOID 1*305001 

IF NOT IPCJOB THEN 

IF LEVEL — <~»1 THEN "LTTM#D-Ct'LEVEtT»tE-VCt»t Jt iMO&FTLSE FLAOT 397! 

PJ*«0J 
VOID 14324001 

_ tf—jTt -Pf#5teRf T TttEN rtAflrt Ot ) X WAS NOT IN P AMMETER 

ELSE 
BEGIN 

Gt^E LBA T C TtT •- -■- 

IF 1S(IF IPCJOB THEN GtPJFLo 
ELSE FLAGCJOJ! % WAS NOT IN 



- p u T t t a ke t g ? & m ot frf i-i-jTG-n---r 



ELSE G,ADDRESS)SPJ THEN 
FORMAL PARAMETER LIST 
MURK-** ¥AtUr-PA^A Mf f t* 



END % 



14087000 
14086000 
BO UNO 14 089000 
14090000 
14091000 
1 4O92O00 
14093000 
14094000 
14095000 
14096000 
14097000 
14O9800T) 
14099000 
14100000 
14101000 
14102000 
14103000 
14TW000 
14105000 
14106000 
14107000 
14108000 
14113000 
14114000 
14115000 
14U6000 
1 4117 000 
14118000 
14U9000 
141*900$ 

14130000 
14133100 
1 41-35200 
14133300 
14133400 
14133500 
14155500 
14155700 
14t1>2l00 
14102200 
14302300 
1W24O0 
14302500 
14102600 
143O2T00 
14305000 
14323000 

tfrmtoo 

14323200 
14324000 

LisTumstmo 

14346000 
14347000 
1*348000 
14349000 
14350000 
4351000 
14352000 



e 



$# PATCH 

si this documents 
~o*r - -ttoact 



550 



VOID 14354001 

"IF TPCJOB AND" PJ«0 THEN X PARAM IPC PROCEDURE! DEC 

GO TO IPCOMPLETEJ * 
IF SPECTOG THEN GO TO START! X AND PROCESS THE SPECIFICATIONS 

TT-S~TTrPT*T O R W A H pr OR tt¥»8EXTrR* X EXT ILLEGAL PARAM CK JN PROCESS 

IF EtiCLASS * FORWARDV ThEN X EXTERNAL 
BEGIN 

TFPROINFO, CLASS # PROCID THEN FLAGC558) X MUST BE UNTYP 

ELSE PUT(TAKE(PROINF'0)MPCPROCID CLASS, PROI NFO> t 
EN0 % 

rcst-r - 

NUMBER 411 EQH XALGOL CONTAINS 22 CAROS 
THE IPC ERROR MESSAGES, 1/5/73 

SAVE OR AUXMEM APPEARS IMMEDIATELY 
BEFORE IDENTIFIER CNO TYPE). 
AN IDENTIFIER OF THlS CLASS CAN NOT BE 
■pTSSrO" TO "AN"" INVOKED PROGRAM, 

missing begin after specification part, 

this intrinsic can not be passed as a 

f0rmax. parameter. 

a task identifier may not be passed as an 

explicit parameter to an invoked procedure, 

parameter must 0e a n e vent , 

an invoked process can not fix or free an 

event passed to it, 

missing comma in axqulre or pend function, 

paramfter must bf an event, 

an external ipc procedure must be untyped. 

W^CtDWE"Mtr*T BE "DECLARED TXTERNAL, 

560 PROCESSTATEMENTI MISSING OR INCORRECT TASK PART, 

561 TASKATtRlBUTEHANDLERt MISSING , IN Ta*k ATTRIBUTE PART, 

562 " T-ArS-KA-f TRt&ttf EttlWDt ERt" "Mi S 3 I NG OR tmf>EF I NEfr T AS K A T T Rl BUTE, 



IPCPROGEDUREDEC 



551 
552 

553 



554""" 
555 

—55-6 
557 
558 



ipcproceduredeci 
actualRaRapartj 

pr0ces8tatementi 

"BTMPFUNT" 

BIMPFUNI 

BT"MfTtmi' 

iPcstatementi 

BLOCKI 
rROCESSTATEMENfl 

processtatement* 



563 
564 



S# 

St 
Si- 



taskattributehandleri 

T*SK*f TRt&ttf EttlWDt E"Rt~ "Ml S3 I NG 

taskattributehandleri task attribute is non assignable, 

taskattributehandleri missing assignment operator in task 

„. - „ . .^. TTfttew - Tt - As ^ tGtmcN . T MA . T . EwfNT 9 

PATCH NUMBER 412 FOR XALGOL CONTAINS 8 CARDS 

THIS PROVIDES THE "RUN" STATEMENT FOR IPC, ONLY VALUE PARAMETERS 



14353000 
14177000 
14178000 
H379000 
14467000 
14469025 
14469050 
El 4469075 
14469100 
14469125 
14469150 



00041000 
00042000 
00106900 
00306905 
00106910 
00106915 
00306920 
00306925 
00306930 
00306935 
00306940 
00306945 
00306950 
00106955 
00306960 
00306965 
00306970 
00306975 
00306980 
00306985 
00306990 
00306995 



565 



•e*N-B-E-^A-**ED-T0-PR^rESSE5- TftAT- IS *RUN« f 3/1*/ f 3, 



00307000 
07765035 
07565050 
07565135 
07565435 
07565815 
07810245 
07810250 



St 



PROCESSTATEMENTI PARAMETERS TO A "RUN" TASK MUST BE VALUE, 
AND I RUN fPCVALUE0NLYPR0CEDURE<APl.AP2)[TASKID]l 

rrr BOOLE A N" RTJNTTERt"X "SET-Tfttf E* TF "CAt'LETT A S A W R 0"N w 

RUNNER»*fl,t42»63*0l X 5TH CHARACTER OF "RUN" m 0* PROCESS * E, 

IF RUNNER THEN FAUlT(565)* X ALL RUN PARAMS MUST BE VALUE 
- 1 F RUNNER THE^~EMltOT-SSMt T "X "START tfSERT-ASK USES * Ftm A "RUN" 
IF Q«"7PR0CE" OR Q«"3RUN00" THEN X IPC INITIATION 
BEGIN PROCESSTATEMENTI GO XXX EnO) X 

PA T CH NUMBER 4T3 ^ OR XALGOL C0 N7 A I NS ~2 CARDS "" 

SI MAKES TEMPORARY ASSIGNMENT FOR EXTERNAL PROCEDURE DECLARATIONS, 

SI 3/20/73 

SpRT [ rRRTTMA"XryPRTlMAX»tr«T3eT5tTTy- X REUSE PRT CELL 14469110 

BOOLFANC*) AND NOT B00LEAN(2*PRTlMAX,f43l53)» 14469115 
S# PA TCH NUMBER 414 FOR XAU OL .CONT AINS 1 CARD 

SI STOPS DEFINE* *HIN PjCKlNG~tlP ATTRlBt)TT~NlAME7~3*^/^ _ 

STOPOEFlNEi»TRUE* STEPITI X PICK UP AtTIiBUTE NAME * NO DEFINES 07566425 
S# PATCH NUMBER 415 FOR XALGOL CONTAINS 6 CARD* 

-S+— T M l S CHANGE ' i N*UNES THAT -THE"tgX ieoGRAl>Hf€At -L^VEfOF- TH-£ TASK ID OOOtfOOlO 
S| IN A PROCESS STATEMENT IS NO LOWER THAN THE "DEEPEST* NAME 00000020 



1" 



St PARAMETER IN AN INVOKATIQN, 8/4/73 OHB 
S61S . pTHTCESTTirrnJEWTir [- rxTCAU LEVEL 0f TASK LESS than a naME p ARAM| 

INTEGER N*MARK»PCNT.MAXLVLI X 

IF STEPI * T, CLASS THEN FAULTC123)! X WRONG TYPE 
__ I f { E I -T-CFRTTTT-) , X VIT > M A XLVL TRTS WAX LVL t*t , L VL I I 

IF (El«ELBAtm),LVL < MAXLVL AND MAXLVL > THEN FAULT(556)J X 



-sr 

SI 
SI 



00000030 
00307005 
07765075 
07565450 
07565465 
07565635 
07565650 



EMlTPA!R(E»LOD)l X 
TOTTR^ITOWgEir^Tr FOR XAUnOL CONTAINS 4 CARDS 

THlS CHANGE INSURES THAI AN IPC PROCEDURE lS NOT COMPILED TO "GO" ANDOOOOOOlO 
CHECKS To SEE T H AT NO MORE ThAN ?9 PARAMETERS ARE ALLOWED IN AN 00800020 
IPC PROCEDURE tTETL TARTt nrTT, (STT "MtP "PATCH TW 8/4/7T DHB 00600030 

567 PROGRIMI COMPILE AND GO OF INVOKED I?C PROCEDURE NOT ALLOWED, 00307010 

568 BLOCK! AN INVOKED IPC PROCEDURE CAN HAVE ONLY 29 PARAMETERS, 00307015 
- ~ — ~tf 5-A-Vf-f tMt'O "ThCIT BEG! N ERRORTOftt *TRuE 1 FLAG (567 ) END UGO WHERE09252250 

IF IPCJ08 THEN IF Pj > 29 ThEN FLAG(568)I X TOO MANY PARAMETERS 14335000 
S# PATCH NUMBER 417 FOR XALGOL CONTAINS 5 CARDS 

*l THIS ADOS A «EW 1^*ir-ATTRT8^Tt"^TNltl-AfOR* W RiCh c A NSE SET AND «EAD,O0OOaOlO 
St If "INITIATOR* lS NON ZERO WhEN A TASK -\% |NiTlATED IT Will APPEAR AS00000020 
SI IF IT ORIGINATED FROM THE STATION WITH THE INDICATED INTERNAL LINE 



St 
SI 

-$r 
st 



IF IT ORIGINATED FROM 

nUwfrEir; Ti/^T'/T3"trHB 

If Q m "7STACK" THEN 4 ELSE 
If » "9INIT1" THEN 5 ELSE 

— - -5tfZ-*~ — - 

■ 582 X 
EMITLC6)! EMITlCDI EMlTL(6TAU03)t * 
ATCTT 1WWBETR - 4T8 FOR XfftGOL CONTAINS 2 
THIS PROVIDES AN INDEXED ARRAY ROW WRITE 

WRlTE(FILtAEXP»ARRY[INDX3)t 
TT-T5-TTir USfRS RtSPONSlBTCTTY TO INSURE THAT AEXP*INDX DOES NOT 
EXCEED THE ARRAY BOUNDS, 11/24/72 

,«-4l0» X LOCAL PATCH LEVEL 



SIZE* * DIMISIONS, # TASK 
CARDS 

OF THE FORMI 



-.- ., -.,-„ 11/24/72 

<~Vt?TTJ 086 7 2 0-1 - 

S# PATCH NUMBER 419 FOR XALGOL CONTAINS 5 CARDS 

SI THlS PROVIDES THE CAPABILITY TO PROGRAMaT I c ALLY GENERATE A MEMORY 

S I OU M P- rN-A^tTOtr"OR-X-At;gDt-Br THE Si^ATEMeim * 1/15/ 73 



St 



DUMPNOW< INTEGER)! 
#f**4t 1*» X LOCAL PATCH LEVEL t/15/73 DHB 

" ---tf-ftw*-7-frtmPrt* T-H€W-X- DttMPttfrWtlO- Mf*©RY DtfM-P 

BEGIN PaNAI EMITL (0)1 EMI TPA I R( 48»cOM) I % 

EMITO(DEL)! EMITO(DEL)! GO TO XXXt X 

___ El<Trr _ t _. 

PATCH NUMBER 420 FOR XALGOL, XV,.J CONTAINS 62 CARDS 

THlS MAKES EFFICIENCY IMPROVEMENTS To ThE XReF AND BEND PATCH 



010 17 T6" 



S# 

St 

- S VOI TJ-T . . 

ARRAY XREFAYH0!i0],XREFAY2[0l29]#XlNF0[0l3i#0t 12711 
INTEGER XREFPTiXlUn? X 
DEF I NE X R EF I NF0[ R it 3»X I nFOI R t tC-)-tTr-21frt - 



00000030 
00000040 
07566575 
07566580 
077665*9 
07766600 
13595325 

00000010 
00000020 
OOOGDDJO 
00000040 
01831100 
08666000 



01831100 
07810500 
07810525 
07810550 
0T81D575 



XMARK»IF XREF THEN XREFAY2£XREFPT-1 J I»NABS(*)#J 
ARRAY BEG1NSTACKC0I3U; INTEGER BSpoiNTj X FOR BEND 

TJ E FI N1NGI T"FEND -" " " 



BOOLEAN 
S VOIDT 



0l00765f 
STREAM PROCEDURE STUFF( LVL#N,L) I VALUE LVL.Nt 
DI1*LJ DS*f8~C TT-r-TTST 1 WfcJ TJSnnmnjST 



IT 

void 



tr* 



DSt»LlT"t w t SjIwLOC LVLI DSt*2 DECl 
STUFF(&SP0INT,BEG1NSTACK£BSP01NTJ,LIN)I 

"4XR1F0" then -BEGTw-s-WTTirHTTTX retbtt a r-tJtr again 



02419121 



7/29/7300800010 

o rot) rrso 

X FOR XREF ONLY 01002000 

01002100 
OT0022DCT 
X MARK ASSIGNMENT01002300 

01002400 
0T0025W 
01007100 
02196530 
DTI*DI*«J 02196550 
DSI»LIT"J"| DSl*8 DEC»02196560 

02196560 

ZKtii 02 r 4T9TOt> 

02419HO 



^ 



IV 1 



B 



t" 



IF NOT ENDTOG THEN X DONT XREF COMMENTS FOLLOWING END 

ir"T,r$5ii33 > sorta then x not w algol" identifier 

PTOGI«TRUE» X DONT XREF THESE THINGS 

PTOGI»FALSH X 

IF XREF THEN X DONT COUNT THIS OCCURANCE 
XREFPT*XREFPT»REAL(ELBATm*LVL#0)IXSEEN 
IF XREF THEN X DONT XREF SECOND DEC OF SAME VAR 



TREFPTliXREFPT-REALCLEVELF^OjJ X GET RfD OF LAST 

END! X 
DFFININGHTRUEI X WE ARE 

TF~*!EF THEN X DONT COUNT THIS AS AN OCCURANCE 
XREFPTSnXREFPT-REAL(ELBATtniLVL#0)> X IF SEEN 



02882050 
02882200 
05442500 
05443500 
I Fl 026480 2 
B410264604 
13348000 



IF 



PTOGt*TRUEJ El PTOGMFALSEl X DONT XREF DEFINE 
DTFTNTNGIsFSLSET X WE ARE NOT 

IF XREF THEN X FORGET THE PARAMETERS SPECIFED IN A FORWARD 

if gi»take(MaRk> > o then x or external declaration 

~ "" "" BE^TN~SFArrrO^KI#*G>J XLUNTiXLUN*G END? 

XLUN > AND ERRORCOUNT * THEN X WE DID SOME XREFF1NG SO DOlTTOlT 
IF NOT NOHEADING T H EN WRiTeCLINECPAGEJ > J DATlMEl 
SVOTDT 1705555* 

STREAM PROCEDURE PUP(S»D)I 
BEGIN 
— — -STr*5T0Tl»DI 

66(if so* " then jump out* ds««ChR)j 

DStwiOLlT" "| SltwSj Sll»SI+32l Sjt«Si4-28J X TO SEG NUM 
DSr«4tHRl DSr*3LTT w *"J DS1*«ChR| DS j«LI T"*"J 
ENOJ 

DEFINE BLANK(P) u BLANKET( 14 ,P)# , 

___ p TTlt .p rfr .. 

* VOID 17069999 

DO lEGlN 

— ■ IT" TRe:FPTT*XREFPT+ 1*30 THEN 

BEGIN 

READ(DSK2#30,XREFAY2[*])tE0F3l 

* " "• ' XRETPTTiOI 

END1 
IF (IH»XREFAY2CXREFPT3)»I2i I273>99999999 THEN GO TO 

END"" ™ — " ■ 

UNTIL I.C9J12] GTR Ol X DONT SORT NON XREFED ENTRIES 
BLANK(PAY)! 
Tr _ t _ AST AOoRr ^ 5 ... ttFt _. t .. B . s . TAO|jKFS ^ i ,„ A . r0 . 1 • TREt j % NEW OCCURANCE 

IF LASTADORESS,t9«123 GTR XReFAyU'J THEN 
BLANKtPAY)! XREFPTlaOJ 



XREF1334B100 
13348200 
14255500 
14259077 

B4 14259078 



* vorD'-TTrfrflTOr 



* VOI D 



BbANKtPAY)! 
PUP2(LASTADDRESS 



LSS 



PARAMS14259096 
14268500 
14470900 
14470910 
14470920 
17001000 
17002520 
17047001 
17048000 
17049000 
17050000 
17051000 
17052000 
17053000 
17054000 
17063000 
17064000 
17065000 
17073500 
17074000 
17075000 
17076000 
17077000 
17078000 
E0FH7079OO0 
17079250 
17079500 
17083000 
TTWWO 
17095100 
17099000 
ITIOIHWO 
17101000 
0.LASTADDRESS,[21I27J»XREFPT»PAY[13)U7103000 
" ~~ 17101010 




BLANK(PAY)* 17103500 

PATCH NUMBER 421 FOR XALGOL CONTAINS 287 CARqS 00000020 

T^KTfr I M PLE M ENTS THE B6700 ~»TfttrLttOf:* * tK*Q ©PTtOir AW) DE*rMPtEWtNTS " OfltHTOOlO 
THF "CAST" LIBRARY COMPILER FEATUREi IN ADDITION THIS MAKES SEVERAL 00000020 
IMPROVEMENTS TO THE READACARD ROUTINE, THE HANDELING Of VOID CARDS 00000030 

T H E "E 0F-T^-X*Bt^^1»Rim;rM"'7Jri t we~COKFt LtR"" T* ™ OtrOWQW 
ELIMINATED, fHlS LAST CHANGE MAKES 9*5 CAR0S OPTIONAL ON BOTH THE 00000050 
CARD AND TAPf FILES, 00800060 

TTO" V E M B E R-?tr,— T"9Trr-*"« TXA VE BRtWN ■" -** IT, S . ~ C VSTtms- S*N TEGO > c* , 0000W70 

00305010 



SI 
SI 

S VOIDT 00305084 




1" 



615 
~620 

621 
622 

— m- 

624 

625 

676"" " 

627 
INTEGER 
* VOIDT 
$ VOIDT 

the 
■j--Torirr"Oi3ivot)i 


> 



READACIRD! UNEXPECTED END OF INPUT, 
S T AR T l HrCtWrttCrT WrSTED tNCLUDES NOT I MR LEMeNTED, 

FIRST INCLUDE CARD MUST NAME A FILE, 
ILLEGAL FILE IDENTIFIER, 

TtLEGAt SEQUENCE NUMBEt "ON INCLUDE C ARO, 
FILE MUST HAVE BEEN U$eO BEFORE FOR * OPTION, 
BAD SYNTAX ON THIS INCLUDE CARD, 
YOUR INCLUDE FILE IS NOT ON DISK, 
BEGINNING SEQUENCE NUMBER IS NOT IN THE FILE, 
% 



startincluoingi 
startincluoingj 

START J N C LWI~NG r 

start1ncludin6i 
startijicludingi 

—ST A1TTT1TC L UDTffG i 
STARTtNCLUDINGl 

addvalue.totalnoj 



"OT00T52T 



UST CHARACTER IN THE TAPE AnD CARD BUFFERS, J 

INCLUDE IN PROCESS, 
I ELABORATING A DEFINE. 



"*"■ V01 oT ~U 1 39B2W" 
SAVE A«RAY 0EFINEARRAV(0I25]I % Ol3x(MAX NEST DePTH)*1 (SEE 1498100) 

DEFINE LASTSEO • DEFI NEARRAYt 25 J#, % TEMP STORAGE FOR SEG Or CARD 

rr$£Wi ^__ 1J ^ 1 ^ r ^ FA .^.. 2fjyi ... I .. |ri[)R .. CAiLiN6 C0NV 

LASTERR * DEFINEARRAY[24]#I I HOLDS SEQ NO OF LAST ERROR 

FILE INCLUDE DISK SERIAL C1»10»150)J 
*~ ¥0 1 t?T -0l-^6TO^t - - 

FILE DSKl DISK SERIAL C20I300] 

FILE DSK2 DISK SERIAL C20I300J 
-S-ftV-f— ft R R A Y~ C B U F f rTfrUF F » I Btf FFtO « 9 1 1 



(2.10.30)1 X FOR 
C2#30»30)J % FOR 
X INPUT BUFFERS 



XREF 
XREF 



$ VOIDT 0l56l45t 
S VOIDT 01576001 
m- VWJ.flt Ul f 4 3 Jy 1 
* VOlpT 01784004 

INTEGER SAVLASTUSEDtlLCR* % FOR INCLUDE 
-RtTAt-TNC LC R . I Ne L R A*Gt1-r TO* INOLUOE '^T I ON 

• "•113" % LOCAL PATCH LEVEL U/20/73 DHB 



$ VOIDT 

-t- vq i dt - 

B OGLE AN 
BOOLEAN 
* VOl TjT- 



02001611 
020137 2 1 " 
PROCEDURE 
PROCEDURE 
2 1 345 t " 



STARTlNCLUDlNQI FORWARDl 
REAOINCLUDEI FORWARDl 



PROCEDURE WRITEBINEJ X 

IF SlNGLTOG THEN WRj TEC Li NE» 15, LI N[ * J ) % 

ErJrifjrrrrrt . TWrnJBtIi . l3 „ tTNr » j j , 

$ VOioT 02182251 

DEFINE PRlNTCARD « BEGIN % 

— — Drrwt IT " * > srm/ot- symboli si ms i *ri 

DSUCHRl 0Sl*2LlT« " I 

switch swi«lcard»lcaRo»ltape* % 

CA R DNUM8ER » « tf -W *LNO-< 



S VOioT 0219300$ 
C H A NG E-StOCC ARONtlHgER-, LCR ) t 

IF LASTUSED > OR NEWINCL THEN 

IF SAVLASTUSED«3 THFN GO TO LTAPEJ % 

t VOi o T 0g g 0225t — ~ 

DEFINE SEOC0MPARE(TtCR»CLCR) « % 



THEN TOTALNtft«ABSt TOT ttWt* 1 
ELSE TOTALNOmTOTALNO+ADDVALUE 



INCLUDE CARD WAS ON TAPE 



S VOJOT 



02203001 

~ ME D IUM I ■» €" * 



-X FR O M 'tARp-RtADtR 
LOR««TLCRj LASTUSEDI»3? 



00415000 
00420000 
00421000 
00422000 
00423000 
00424000 
00425000 
00426000 
00427000 
01000860 
01001490 
01331000 
01336000 
01337000 
01394700 
01398000 
01398 100 
01491000 
01498100 
01498200 
01498300 
01561010 
0156 101 1 
01561025 
01561050 
01561056 
01561065 
01575000 
01742200 
01756000 
01783000 
01784^00 
01631100 
02001010 
0201301 
02065700 
02065800 
02131500 
02181000 
02181250 

0Z18T5O0 
02181750 
02162500 
021*5-250 
02185500 
02191250 
021-92000 
102192250 
02192500 
021*3250 
02193800 
02194600 
02r985tf0 
02202500 
0220 2750 
02203230 
02204000 



B 



IF 

IT 

IF 

IF 



THEN 
THEN 
THEN 

Then 
then 



GO 
GO 
GO 
8! 



TO CARDONLYJ 

TO TAPELASTI 

TO CARDIAST? 

INCLUDE 



% 
% 
% 



go useTheswjtch else qO ex IT I X 



MED1UMI»"T"! % FROM TAPE 

HFDIUMI« W P"J % CARD PATCHES TAPE 

LASTUSED»«3» X IN CASE OF EOF ON TAPE 
READ(TAPE»10»TBUFFt*J)CEOF]l 

-$-vorirr-"022tr850r — ' " 

LISTUSEDUSJ 
#» % END SEQCOMPARE DEFINE 

DT07 NCLtfTJE«RE*LT DOLL A RT OG ) *"H W # I X 

LABEL USETHESWlTCH»CARDONLY»CARDLAST»EOF,TApELAST#COMPAR.EXIT.XITI 

boo lean dollar?togi % 

-$— Vtn 0"^ 02 2TT2S1 " 

IF LASTUSED*1 
LASTUSED«3 
CAStVStD^^ 
LASTUSED*0 
REA DINCLIU PE 

~027T5Wr 
lcR»*clcr; % 

VOIDT 
~RTATJTX-»RD, 10 , CBUFFC * J 5 [EOF 1 I 
IF LASTUSEDbi THEN GO TO EXlTl % CARD ONLY 
IF LASTUSED-l THEN % EOF ON CARD MEANS BYe-BYE 

""BXTrTN-rRROHTDGTiTRUEr TRR(6157 ENOI % BRANCHES TO ENDOFITALL 
IF LASTUSE0*3 THEN * EOF ON TAPE - SWITCH T© CARD ONLY 
BEGIN LCR*»CLCRJ LASTUSEOtM* MEDIUM1»"C"J GO EXIT ENDI 

rrLX-TB-UFTTir WITH 4T w I END-OF", "*FI LE **" ) , "COMPI LER" » "99999999*1 

VOIDT 0221840* 

VOIDT 02219001 

R E A D ( T frPETTOTTBWFT * 1 > C E F T 1 

VOIDT 02224001 

SEflCOMPARE(TLCR»CLCR)l 

-vo-rtrf - 

voidt 

if c0mpare(mkabs(lastseq),lcr)*1 then * 

— -Ptf? S E ft N tt-A5f -Sffr rfrCfttt - --»- 

CARDNUM8ERl«C0NV(LSF0Ml#5t8)| % 

NCRl«NCR+32768j X OVER "»" CCHAR MODE POINTER) 

-"UOttttRC-A-Rtr* i- - 

IF NOT DIDINCLUDE THEN X 

IF LISTPTOG OR PRlNTDOLLARTOG THEN PRINTCARDI 

•WVtmTKtTCBTM^-v-WV EX AM IW(FCR*32768 )««$»• THEN 



$ 



VOIDT 
VOIDT 



_ .-^ tnT9fttJ ^^ 2T6 ^ J776 ^ r 

IF DIDINCLUDE THEN GO 
* VOIDT 02235251 



% over ■■■"■- ** rtHAf 

USETHESWJTCH^ X 



MODE POINTER) 



* VOIDT 



OUTPUTSOURCE? " ™ 

CARDC0UNTt»CARDC0UNT+ll 
IF OMITTING OR I 

D^tiirft2TtKrTwrN 



» VQipT 
* VOIDT 

s voidt 

" ALO N G I 
S VOIDT 



GO USeTHES WITCH* 
OPTlONStOPlNX+i]»aREAL(BI»TRUE)» * 



02204250 

02205500 

02205750 

02206000 

02206250 

02209250 

02209750 

02210000 

02210250 

02210500 

02210750 

02212000 

02212025 

02212050 

02212100 

02212200 

02215500 

02215500 

02215750 

02216250 

02216500 

02217250 

02217275 

02217500 

02217750 

02218000 

02218250 

02218750 

02219500 

02219750 

02724500 

02224 750 

02225500 

02226000 

02226000 

02228100 

02228750 

02229000 

02229200 

02229250 

02230 000 

02230100 

02230500 

02230750 

02231100 

02234251 

02234500 

02234750 

02735000 

02235250 

02235500 

023 3400 

02335000" 

02339000 

02353000 

02 J5 65 00 

02358000 



r 



STREAM PROCEDURE GETV0I0CVP#NCR»VR,LCR*SEQ)I VALUE NCR.LCRJ 
BEGIN 

SH«NCR; DIlwVP) DS|*8 LIT "0"; 

gC 34C IF SC»g " THEN Sl»*SI+l ELSE JUMP OUT 2 TO L))l 

s T uSEQr-i(rinn«5Ti~T7^L"yTrtT-aa--T^A"Nsi % use se« no of this card 



LI 



if scb""» then 

~" ~~ bfgtn~ "" 

SH»SI + H DU«lCR> DSl.i LIT""*; % STOPPER FOR SCAN 
NCRI.SH X TEMP, STORAGE* SINCE NCR jS "LOCAL" To GETVOID, 
9TTF STnpnrw _ THrR -jtJHp-HotTT ELSE 

BEGIN TALLYI«TALLY+U Sl»*SlM EnO)» 

END 

TL"«r-Btertr - 

NCRtwSU X TEMP, STORAGE* SINCE NcR IS "LOCAL" TO GETVOID. 
DH«LCR| DSt*l LIT" "I X STOPPER FOR ScAN 

*rTF-$irw*--»-"THF"tf JUMP OUT ELSE 

BEGIN TALLY!*TALLYni SH«Sl + l ENO)> 
END! 



-T1?1fN-Sr 



SjIbNCRJ OH«VPJ DII»DI+8I X RESTORE POINTERS, 

NcR»»TALLYJ DH*DI-NCRJ DSl«NCR CHR* 

0It#0T 1 »8t vriiOIf * I.E. "LOC VP"tw0T 

OtlaVRl SjULOC VPI DSIpWQSIX ADDRESS OF VOiD RANGE, 

END OF GETVfllDI 

TJOttrARTTTG-TiD-OLLARTOG OR TKUE» X 



$ VOidT 



S VOIDT 

rr«- 



GETV0lD(V0IDPLACE,NCR,V0!DCR,LCR#LASTSEQ)» X 

IF TLCR m THEN X FIRST TIME ONLY 
TLCRI«MKABS(TBUFFc93)l 



GETV0IDCV IDPLACE»NCR»V0IDCR,LCR»LASTSEQ)» X 



^TINC L U"- THCN-I 



BEGIN D0LLARTOG«»STaRTiNCLUDINGI GO EXlT £HQt 
If » "7INCLN" THEN X 

BrGTN-S-n-T-tm-T-t-NtWtNCtfrlTH 60 AG At* END* X 

roTALNOl.-CCONVf ACCUM[1],0, COUNT }+!)* 

* VOIDT 02583001 

CHANGfSEa c ClRPN UMtrRytt^n * RE*TO*E S^t TlELt) fOR V0-| OttANGE CHECK S 

OOLLARTOGiwOOLLARTOG AND NOT TRUEI X 

CROSSMATCH? X 

RfFftitENitK0S ^ w . ftT . Ctt1 % . 

dollarcard; 

* VOIDT 02736001 

» VOipT 02908001 - - 

* VOtoT 029*9999 

BOOLEAN PROCEDURE READINCLUDE* 

BEGIN - 



LABEL EOFI X 
LC R <» 1LCR< t)EDtUMIs«]«f 
REAU(INCLUUE»107THUFFT*1 TTTOFTr 



IF C0MPARE<!LCR*!NClCR)«1 THEN X THIS CARD OUT OF RANGE 
E0FJ8EGIN 
LAS T USlDi ri 



READlNCLUDEt*TRUEI 



"WEDTtmrw*c*i rnr-trsr 0F - ctvrd owl y 



02359100 

02359125 

02159150 

02359175 

02359200 

0235*225 

02359250 

02359275 

02359300 

02359325 

02359350 

02359375 

02359400 

02359425 

0235*430 

02359475 

02359500 

02359525 

02359550 

02359575 

02359600 

02359625 

02359650 

02359675 

02359700 

02359725 

02366000 

02368000 

02410000 

02-411 OOtJ 

02439000 

02456000 

02 4580 

02485000 

02486000 

02571*000 

02571000 

02572000 

02573000 

02581000 

02582000 

02*02*00 

02603000 

02640000 

0261*2000 

02530000 

02732000 

O290TOW 

02985001 

02986000 

02*86100 

02986200 

02986300 

02*8 6W0- 

02986500 

029866 00 

02*86700" 

02986800 



i" 



BUNKEfcO*lASTSEQ)> X 
CLO'SEC INCLUDE') I 
END) 
END ReADINCLUDEI 
~BtKrtTAtr-p«tTCEDtJitr START f NCLUD I NqI 
BEGIN 

LABEL AWAY»THRU) 
" REAL FIRST m "I NTEGER I » JiK J 
BOOLEAN SVNRWTOGJ 
DEFINE FLAGITCE)«BEGIN FLAG(E)! GO AWAY EnD#* 

■~ rTN0FTRS7*5VNEWTOG#t MAXR*T#. NEW«FJHST#* 

IF OMITTING THEN GO AWAY! 
IF VOIDING OR VOIDTaPE THEN 

IE COMPAREfMKABSaASTSEO)»VOlDCR)«0 THEN I 
IF VOiDTAP.E AND LA$TUSED«3 OR NOT VOIDTaPE THEN GO AWAYJ 
CHANGESEO(C»RDNUMBERtLCR)l X RESTORE FOR LIST 

•- '-'STNEirTOUTfNCirTOGr- 

NEWT0GI*NEWT06 AND NOT NEWlNCLl 
OUTPUTSqURCE! CARDCoUNTl*CARDCOUNT+l J % 

— -NT^tOG"t"*SVNfWTtrGJ 

TURNONSTOPLIGHT(»»X",LCR)i % FOR SCANNING 

STARTINCLUDINGI»BOOlEANC"H")! X TELL READaCaRD WE DID OUR THING 

lT"tr*S*tt*E©w©-mN tLA6IT<620)J % CANT NEST THEM 

5«AN! 

IF SAVLASTUSEDwO AND RESULT*! THEN FLAGIT(621)! X MUST NAME IT FJR 

~1T -RESULT*! THEN X FILE ID 
BEGIN 

IF COUNT > 7 T H EN FLAGlT(622)J 

— - Tti» " *T HOVECH^RACTERSf COUNT* ACCUMC I ] $ 3» Tt 1 ) I 

IF INCLUDE. MFID*T THEN INCLUDE, MFlDUNEHIwTI 
SKANi IF RESULT»2 THEN SKANI 

" " IT RtSttLT^I OR COUNT > 7 THEN FLAGlTf622)l 

Tls" *! M0VECHARACTERS(C0UNT»AcCUMCl]»3#Tii)| 
IF INCLUDE. FID#T THEN INCLUDE . F I D«*NeW «'T t 

""" " " "" $X"AN? ' ' 

END* 

INCLRANGE*«S99999999 W | FINDFIR5T UFALSeI 

- nr -Rr$tttrrr3 then % number is starting number 

begin 

FINDFIRSTIkTRUf) FlRSTlaO; 

IT C OUN T- > »-TREN TLAG I Tt 6237 1 

MOVECHARACTERSf COUNT, ACCUMtU»3#FlRST»t-COUNT)< 

THRUI SKAN* 
.-j^-^^j.^^^. oR .. esW2Toooow T+1EN 

begin i thru specifier 

SKANI 
t#HleWbfl ^..^ M ,. t ^ fH1 > -e THEN FLA^I TC623) » * BAD NUMBER 

INCLRANGEl*Ol 
M#VECHARAcTERS(C0UNT»ACCUMtlJ#3 t lNCl-RANGE»8-C0UNT)l 

- *K*Nt— 

ENO» 
END 

■EXrST"""~ ~ " 

if o**i*ooo©> then % start where we left off 
begin 

-- IT -$TrVt'HSmEWO"0« NTW*Q THEN FLAG ITT 624) I 

MOVEC !• lBUFF[9j f FIRST)! FI NDF I RSTl *TRUE ! 



02986900 
02987000 
02987100 
02987200 
02987300 
02987400 
02987500 
02987600 
02987700 
02987800 
02987900 
02988000 
02988100 
02988200 
02988300 
02988400 
02988500 
02988600 
02986700 
02988800 
02988900 
02989000 
0298-91 00 

02989200 
ST02989300 
02989400 
02989500 
02989600 
0298970tJ 
02969800 
02989900 
02990000 
02990100 
02990200 
02990300 
02990400 
02990500 
02990600 
02990700 
02990800 
02990900 
02991000 
0299H00 
02991200 
02991300 
02991400 
02*911500 
02991600 
02991700 
02*91800 
02991900 
02992000 
02*92 10 a 
02992200 
02992300 
02*97400 
02992500 



end; 



GO TO IhRUJ X AND GET - SEQ NO 






rr^r^XOWO^ OKX^ODF#0 THEN FLAGIT(625)| % BAD SYNTAX 

ILCRUMKABS(iBUFF[9])J 

SeARCHC!NCLG»DE# iBUFFf*])! 

~~™ tr--*» xmm B Brf T*7n * o then flagitc626)i i-file not on disk 

IF FINDFIRS? ThEN X BINARY SEARCH FOR FIRST RECORD 
BEGIN 

""" ""iUCCtTTiaimrABSCFTRST)! 

K»sMAXf^ + J) = i j 

WHILE J < K DO JI«J+U) I»«J DIV 21 

~* FW-KTlT w rSTEP IF J*0 THEN I ELSE *I 

WHILE I > DO 
BEGIN 

~ " IF K 2 MAXR THEN J I »1 ELSE 

BEGIN 

RFAD(lNCLUDEtK]#iOtIBUFFC*])l 

"""" " ' - v )T-Co _ WFARr ( 1LCR, TNCLCR) I 

END* 

I!»IF J*2 THEN ELSE I Dl V 2* 

' ~ imi '"■ 

IF J#2 THEN BEGIN CLOSeC I NCLUDE ) t FLaGiT(627) END! X NOT 
END* 

SAVtASTtJSEDTwtASTtJSrDj LASTU$EDt*Ol X WE A*E INCLUDING 
INCLCRlaMKASS(lNCLRANGE>l 
BLANKET(0,LASTSEO)* X 

■twtrr — ■- - 

END STARTINCLUDJNGI 
X 

~tomen*t***t**H*********t* #######*## ##-### # #*# 1 #■# * tt ############## 

FORWARD DECLARATIONS 
###############################################################* #1 

" -- - " - HOVEtl * b ASTSF« * tTNt12 3 ) I 

wRlTERR0R(REM0T0GtERRNUM,ACCUMti].LiN,0 t tl2i6),LAS 
S VOiqT 

tTtmrrnxA-sT^Ettitn^Hrn^r t 

IF ERRNUM*i99 OR £RRnUM«200 OR X 

ERRnUM*6U OR ERRNUM»6t5 THEN GO To ENDOFITA 

" ' "LA'STtfSfDr*!! X CARD ONLY 

T0TALN0»*-C1*ADDVALUEI«1000)I 
$ VolDT 

~~ " T}tXTTUTOT#L'ATn^FOT*SDRTA*ti 

BLANKET(t*LASTERR)l X BLANK LASTERR AND LASTSEO 
MEDlUM*»"c"l LASTUSED1»11 * ASSUME CARD UNTIL TOLD D 

' — — ttm*1W*fl^TCB-UFFT9l7! * 

RtADACARD; X READ FIRST CARD AN& OPEN FILES 
NEXTlNFOMLAST!NFOl«SORTA + lJ 
"S"VOTD~f" 0927555 t - 

M0VECHARAcTERS(4»LASTERR*O»GTi»4)| X 
M0VECHARACTERS(4#LASTERR#«#GT2»4)r X 
-* VO i pT ^»»?»o^r 



ERR0R(199); X 6 0ES TO ENDOFITALL 
TIMEiliTIMECDj X 80J TIME 
TretfrtAPY) X fttTOY"SCT"~»~- GO 



BLOCKCIALSE)! X 
ENDOFITALL I 

CLEANU P ) X- - — - — - — ■ 

S* PATCH NUMBER 422 FOR XaLgOL CONTAINS 22 CARDS 



02992600 
02992700 
02»92800 
02992900 
02993000 
02993 tOO 
02993200 
02993300 
02993400 
02993500 
02993600 

02993700 
02993800 
02993900 
02994000 
02994200 
02994300 
02994400 
02994500 
02994600 
02994700 

THERE 02994800 
02994900 
02993000 
02995100 
02995200 
02995300 
02995400 
03000000 

######030001 00 

03000200 

#####103000300 
05039500 

TSE0X05044000 
05045000 
05058000 
05107100 

LLJ 05107200 
07030000 
09028920 
09029000 
09 03 JO 00 
09034500 

IFFERE09033000 
09036000 
09037000 
09214980 
09*75100 
09415000 
09416000 
09*21000 
13112500 
17000000 
J7O0OTO0 
17800200 
1 7000 300 
-17000400 



a 



t" 



S| THIS PROVIDES A BEGIN - END MATCH UP AS ON ThE B670Q, OHB 11/13/73 
" TnTTGER NTt»BE^CT#0LDBE6CTj * To MATCH BEGjN5 - ENDS 

$ void 

edi t^i ne (l i n »pcr » abscoldbegct ) »l, t 36 tt03» medium* omitting) i 

PR OC ED UR E ED 1 T L I NE C CtNTrRrffyBCNOTrrsYMHO^t 0*m I 
VALUE NCR#BENDiR*$YMbOU*OMITI 
DSt»LJT" "l NCR|«DI| DU*DI"17| 
- -*TT*t-Ot -BtWrU*T»4 DETT 011*01*41 D$ I t»4 F I LL ; D I I »NC R I 
SIt*LQc SYM|OL> S!t«SI+7l DSt-CHRl DSl*2 LIT" "I 
OLDBEGCTt»0| X WF PRINTED IT 

TOTTy oai966i r 

If OEPI^ECTR ■ THEN X NOT IN A DEFINE DECLARATION 
IF T, CLASS m BEGlNV THEN 

" " - OLDBEBtTTiNEWBEGCT1*NEWBEGCT+i ELSE 

IF T, CLASS * ENDV THEN 



BEGIN 



S~VrriT)T"02VlTiSOT 



END* 



TO>«tGCTl¥Tr DLOBEGCT 
NEWBEGCTlPNEWBEGCT-ll 



* THEN ELSE "NEWBEGCT 



VOIDT 
^OTDT 



EDITLINE(LIN»FCR»0»• , "»MED IUM,0) ; 



s* patch numbe r 423 for xalgol contains is cards 

$1 THfS CORRECTS AND IMPROVES ThE CODE GENERATED FOR CASE STATEMENTS, 
tl — -ir-A-fASt "TNOtX" EQgAC "TTT Twt NUMBER OF CASE ELEMENTS W] LL NOW 

$t cause an Invalid index as all other invalid case indicies do, 
st 2« four syllables of unnecessary branching cooe is eliminated at 

-n the end of the c ust-statement,— ■ - - 

$1 3t an extr» word In the case branch segment is removed, 



SI 1/8/74 



LLINK, TEMP* 
XIT, ONOUTI 



REAL LINK, 
LABEL LOOP* 
VOID 07646421 
END ELSE 

IF ELCLASS » ENOV THEN 
— BE 6 1 N 1 F N» 0— fHt-N- ~t»t irt ? 
IF LINK > 
BEGIN LINK! 

GO ONOU T I 

EN0) 

BEGIN EM I T < L L I N K » ■■* L I N K ) I 

-E*flrr-s 



* t-OtAL PATCH LEVEL 
Nt ADR* PRT* NULLI 



1/8/74 DHB 



X AT ESAC 

*" IN- CASE Of EMPTY 

THEN % OMIT 

END* 



AND NOT GOTOG 
LLINKI Ll«L-2 



CASE 
LAST 



STATEMENT 
BRANCH IF 



ITS THERE 



LlNKl*Ll«L+l END* 



S VOID 07646551 

ONOUTI 

»» PA T CH NUMBER 424 FOR XALtiOL CON T A INS 



SI 

SI 

-*T 



m~C7rftu-s "" * 

thfs implements the truthset as on the b6700, in addition 
the default truthset "numeric* is added, 

1 /13/ 7 4 '■■■■ 

549 TrUTHSETEi TrUTHSET SPECIFIER MUST BE A STRING, 
TrUTHSETID «118#* COMMENT 1661 
EVEN T V *2*1T CO MMEN T 



TRUTHSET V »24#| COMMENT 
INTEGER NTSETSl I NuMbeR OF TRUTWSETS 
$ [ 0111 9 31 t-CA^-HAVT 40- 
POweRSOfTeN «(S0RTA-1)*» 



-2TJ ~ 

301 
DECLARED 



x 3 



00000010 
O10O24O0 
01002500 
02182750 
02t81500 
02183750 
02185250 
02185300 
02185500 
02196275 
021TO5T0 
02869100 
02869200 
02869300 
02869400 
02669500 
* 028*9600 
02869700 
02869600 
02910100 
05038000 
14255500 
14268500 

OOOOOOlO 

00000020 

00000030 

00000040 

00OWO5O 

00000060 

00000070 

016 3H 00 

07646390 

07646410 

1*784**20 

07646500 

07646502 

076465C4 

07646506 

07646507 

0784~«5W 

07646509 

07646533 

07646-538 

07646540 

07646556 



00600010 
00000020 
OO0000JO 
00306895 
01278075 
Ot?9870O 
01296750 
01519000 
Ot52t>000 
01574000 



«fi 



v<> 



e 



SORTA *765*l % MARK XV.2,0 2'l3/74 

."•424" * LOCAL PATCH LEVEL l'l3'74 

-STREAM" FR"0Crmr^rFEBOtJW6RDTSEQiC0DE»TE!L)l VAlUE SEqJ 

SI|»C0DEI 

if aclass-truthsetid and not vbit 

DCFINE CNA p 29rr~%~ CBATfSCT ER tH 
CNN * 30#» * CHARACTER IN 
CNT * 31IJ X CHARACTER IN 



THEN 60 TO L22I X NO VALUE 

ALP*"A 

NUMERIC 

truthsetid 



~ " " TTTTT0THKS71 EMI TL T ) | £ M T T L ( ) I E MIT L CO ) » 

$ VOJn 07957701 

EMiTtCO) I 
— E"MTTtrrN*7T "I -"CHARACTER I* ALPHA 
07957901 
ELSE 

IT- tXtt AS*wf fTOTHSE T ID THE N 

BEGIN 

SiMPLENAMECELBATm)! EMITL(CNT)| stepitj 

tust 



\ 



VOlO 

END 



"Eim" 



BEGIN 



IF Q«*?NUMER" THEN 



—ttmtttii E* TTct c mn t step t t j 

EMITV(GNATCSTRNGCOMPaRE))! 

SWN » 25*. X SCAN WHILE 

- -" ■SHT~«r-2«r» X SCAN WHILE 

SUA <p- 29*. X SCAN UNTIL 
SUN * 30#. X SCAN UNTIL 
SOT" i JJTI X SCAN UNTIL 
BEGIN EMlTLdF WHILECOND THEN SWA 
IF EL C LASS m TRUTHSETID THEN 
* BE6l^"EMlTL(TT~1*WTLTC0TnJ "THEH 
SIMPLENAMECELBATcU)! 

END ELSE 

T y^Q , ■♦ f w . UWE(t<t - THEN - 

BEGIN EMITLdF WHILECOND THEN 
* VOID 07965601 

f'K'N tt Zf'f 
IWT * 26#* 

TUT * 29#* 

. ^ iin ^^ 39t9 

COMMENT CONDITION 



IN NUMERIC 
IN TRUTH SET ID 
IN A^PHA 
IN NUMERIC 
IN TRUTHSETID 
ELSE SUA)I EMITLCO) END ELSE 



SUT ELSE SUTri 



SWN ELSE SUN}| EMITL(O) END ELSE 



r 

x 

X 

-* 

IS! 
0R| 



TRANSTtR 
TRANSFER 
TRANSFER 
TftAnrSF€R- 
WHILE IN 
UNTIL IN 



Wmt-f IN NUME"Rt« 

WHILE IN TRUTHSETID 

UNTIL IN TRUTHSETID 

UNTfL H NUttERfC 

ALPHA. NUMERIC. TRUTHSETID 

ALPHA. NUMERIC TRUTHSETID! 



~gE-Gti^-^miTL-^tr"->m i lecono theh- tw-a ttsr ru*yi rwiTtcor end else 

IF ELCLASS * TRUTHSETID THEN 

BEGIN fcMlTLUF WHILECOND THEN TWT ELSE TUT)* 

-frMP L ENAWrtE L B ATC i n T 

END ELSE 

if o » "7numeR" then 

BEGIN E H IT L rrV-WHTLTirfrNP 



VOID 07975801 

OCT 0132000000560000. 
OCTo«r30000300000000 . 
OCT 00300002*0000000. 
OCT 200O0O00fO0O4050. 



TFE1T T WN "Et,5E TIWTt EM TTL C ) END 



602 STEP 3 



"07 
732 



UNTIL 728* 
END! 

— -NTSTrrrnmYSTTs 

FOR 11*0 STEP 



"8HAPPE"» 
»BTRUTff», 

"7PR0TE 
COMMENT 
CTW&EWT 



"NEDOOGOQ". 

^SETWOOO*". 
. "CTOOOOOO". 
POWERS OF TEN 



GCT2000000000100020) 



I 



STEP « 



SWIX 
UNTIL 



1 

748. 



750 STEP 2 UNTIL 758.761 



01580000 
01831100 
04130000 
04134000 
07217513 
0795 7 AT 
07957420 
07957430 
07957440 
07957700 
07957750 
07057800 
07957900 
07958010 
07958020 
07958030 
07958040 
07058050 
07958060 
07058070 
07058080 
07958150 
07961811 
0796 1 812 
07961820 
07961821 
07961822 
07965400 
07965410 
O7065A2O 
07965430 
07965440 
070*5450 
07965460 
07965600 
079*8410 
07968420 
07968430 
079*8440 
07975200 
07975300 
07073500 
07975510 
07975520 
370755-30 
07975540 
07975550 

EUSr 370755*0" 
07975800 
X74409214430 

X75B O02T4T3T 
X761O021444O 
X764O0214444 
X7 6 5 00*144*5 



•TT 

3 UNTIL 



ntsets do 



09214513 
09360100 
00160200 
09360300 



a 



BEGIN 

H0VE(i,TRUTHSETStI]fPRT[(GTil«TRUTHSETS[U2j) 

GTi MOD 128])* 
MOVE(iiTRUTHSETS[I + I},PRTUgTH»GT1 + D OIV 128. 

GTI MOD 1283)1 
IF BOOARRAYIDSTYPESINTARRAYID 
OR TYPE » TASKID 
OR TYPE ■ TRUTHSETID 
THEN % MUST BE CALLED BY NAME 
TRUTHSETEJ 



DI V 



PROCEDURE 

"Bnriw 

STREAM PROCEDURE TRUThSETTER(N,A,T)I 
BEGIN LOCAL C.CPI 

st !■»*■> sn*si+ 3 i diihloc ci dh«di+7j 

N ( DIl.Cpl DSjwCHR; DH.TJ SKIP DB; 
EnD SETTER! 

~ " CttBTL *W*Yt 

IF GTAHJ*U#0 THEN FLAG(25)| X NO SAVE OR 



VALUE Nl 



CPI' 

skip 



dii 

c db; 



DSmSET ); 



OWN 



I|*I"l! 

DO BTGTN 

STEPITI P2»«TRUEI entryctruthsetio); 
IF SPE8T0G then go awayi 

TRUTHSfTSTNTSETS*23t*GETSPACECTRUE#*l2)*ll % CONSTANT OR 
IF ELCLA5S#LEFTPAREN THEN BEGIN ERR(l05)l GO AWAY ENDI 
IF STEPl#STRiNG AND ELCLASS#STRNGCON T H EN % BAD 

BEGIN £*R(549H GO AWAY END! 
DO TRUTHSETTER(C0UNT»ACCUMCU»TRUTHSETSCNTSETS3) 
UNTIL STEPI/STRING AND ELCLASS/STRNGcO* J 

THEN BEGIN ERRU04) I GO AWAY ENDI 



'tTRUTHSETSCNTSETSltLlN)? WRITELINEI 
^TRUTHSETSCNTSFTS+n.LlN)! WRITELINEI 



ir~Etctnr***frTp*RCTi 

IF DEBIGTOG THEN 
BEGIN DEBUGWORD(" 

" tfrBUGW0RDt w 

END DEBUG! 
NTSETS!»NTSETS+3J 

E'KTT ~ ™ 

UNTjL STEPlKOMMAJ 
AWAY t 
EMIT TRUTSETDEt-ERJ 

TRUThSETOEC# % 

PTRDEC,DEFINEDEC,AUXSIZERR»AUXSIZERR»TASKDEC.EVENTDEC» 

..^ wV ^ S p T p^ CT 

TRUTHSETDECI fRUTHSETtl GO TO STARTl 

S# PATCH NUMBER 425 FOR XALGQL CONTAINS 4 CARpS 
••*i- T H T 5 A D P* THE "NtWftt* Of SYNTACTIC ITEMS PROCESSED TO THE COMPILER 

SI SUMMARY, I.E. 7700, 7/16/74 DHB 

INTEGER TOKENS! X NUMBER OF SYNTACTIC ITEMS SCANNED, 

_. T O KE N S I u TOKE NSnt-X-e-O^trf-OT-^YN-TACT 1 C I TEMS 

"PROGRIm C0NTAINS»»I7» b SYNTACTIC ITEMS,"/ 
TOKENS* % SYNTACTIC ITEM COUNT 
■t<-F*TeH-Wtm«ir-5t)t-f0ir-*'«t*-0t- CONTAINS 3 tARTjS 

SI THIS IS AN IMPROVED VERSION OF PATCH XIV.IqS, IT COMPILES A FILE 

Si DECLARATION SUCH AS FILE FLE 3 n ABCDE" ... WITHOUT 

nnr-ornttmw -hex strws- -twposs able if the 

SI LAST THING ENTERED INTO THE SYMBOL TABLE WAS A FILE. 12/20/72 

S VOID 02761502 X VOID XIV, 105 

Tf _^ T ^ r ^ T1?T ._ Tfl . ! . N . 0trtNEX . TR||r99j .. t -s T0F 0CTAi n EX PROBLEM 

IF DIFINECTR>95 THEN DEFINECTR I *0 J % RESET DEFINCTR 



09360400 
128,09360500 
09360600 
09360700 
09360800 
13330550 
13330560 
13330570 
13330580 
13595500 
13595510 
13595520 
13595530 
13595540 
13595550 
13595560 
13595570 
13595580 
13595590 
13595600 
13595610 
13595620 
ST RING 1 3595630 
13595640 
13595650 
13595660 
13595670 
13595680 
13595690 

13595691 
13595692 
13595693 
13595694 
13595700 
13595710 
13595720 
13595730 
13595740 
14016750 
14021000 
14021250 
14155800 
00000000 
00000010 
00000020 
00504175 
PR0CtSSE0O?9^9500 
09274455 



09419250 
14155900 
14156100 
14156300 

Trraroou 

14156700 
02761500 
1 3 080750 
13081250 



^ 



J 



a 



e> 



e 



*# PATCH NUMBER 800 FOR XALGOL CONTAINS 35 

st this patch adds the capability to syntax 

-$T -W VA-R1 (rttS-trC? ttTNSTRtfCT S 
$1 ERRORBRANCH ATTRIBUTE ADDED 6/5/72 
SI THIS IMPLEMENTS THE COMPILER PORTION 



CARDS 



1£$ %r " 

#»*LASTS" 

•**0#LASTS" 

r*7TT*Et>* 

»08CHART" 
»"8DCACC" 

~ " #1J5DCUSE W 

.•jhobuserc" 

» ir Bt)5XR'C»6'"' 
,»«80PERROR" 

i"806XWRIT" 

" 7TTOJ"0T~ 

OEFJNE NBATTRJBUTES « 

l7#» 

" D"CFWFS ET i 

5#» 
DCPATRBUTENDX» 

" ewttwm ( If 

ir 

IF 

IF 

IF 
IF 

" " "" "" It 

IF 
IF 

■'"- "" IT 



OF THE XWRITE ATTR I BUTE . 1 1 /2 



X LASTSTATION 

* LASTSTATUS 
X TIMEOUT 

* CHARTYPE 
X DCACCESS 

X OC^SE 

X USERCODE 

X STNSTATUS 

X EXTENDED READ 

X ERRORBRANCH 

X EXTENDED WRITE FOR SYN LINES 

tcl "st ate :m m -on t h d c p s t u f f 

X THE NUMBER OF STANDARD BIG B 

X MARK XV, 2,0 2/13/74 

X THE" NUMBER OF OVER-LAPPED ATTR I BUTES 

X MARK XV. 2,0 2/13/7* 



SAFELY HIDDE 
ATTRIBUTES 



(ATTRIBUTEINDX 
ATTRIBUTf/INDX* 1 
ATTRIBUTEINDX* 4 
ATTRIBUTEINDX*12 
DCrATRBUTEN0X»i3 
DCPATRBUTENDX»14 
DCPATRBUTENDX»i5 
OXPUtttUTrNOXwt* 
0CPATR8UTENDX*17 
DCPATRBUTENDX*2Q 

DCPATRBUTENDXw23 



dcpoffset)#j 
then "6access* 
then »60t h rus w 
then »6arasiz" 
then w6lststn* 
then "6lststs" 

THEN "6TIM0UT" 
THE* -*6trHRTYP w 
THEN "6DCACES" 
THEN "6STNSTS" 
THE* ""6ER1TORN* 
THEN "6XWRITE" 



IF _ - _ .._.. . _ 

o & fileattributescattributeindxh 

r ftle-at triwte st at tr i butei wdx 3 m 

emitl((attributeindx » x 

(IF ATTRIBUTEINDX > nBaUrIBUTES 



ELSE 

ELSE 

ELSE 

ELSE 

ELSE 

ELSE 

EtSE 

ELSE 

ELSE 
- ELSE 

ELSE 
61121363 
3113) t 



THEN DCPOFFS 
ELSE 1) 
) & R£aLCN*FP OR N«FA)t39|47|l3 



00000010 
00000020 
00000030 

4/7200000040 
08493094 
08493121 
08493122 
08493123 
08493124 
08493125 
08493126 
08493127 
08493128 
08493129 
08493130 
08493131 

N) 08493115 
08493501 
08493502 
08493503 

08493504 
08493505 
08493790 
08493791 
08493792 
08493793 
08493794 
08493795 
084937*6 
08493797 
08493798 
08493799 
08493800 
06493620 
084*3830 
08493840 
ET+108493842 
06493844 
08493846 






Label ooooooo^oline ooi78104?execute o/r 



/R 



8 

7EXFCUTE 0/R 



1" 



PACKET 31 

-TtmiT TTlUlrtTWt CRA 

TIME 1134 

DATE 78104 FRIDAY. 04/14/78 



*** BURROUGHS B5700 DCMCP MARK XVI, 0,178 AND INTRINSICS MARK XVI, 8,132 *** 
#N0 MESSAGES TODAY 



11134157 ?EXECUTE 0/R 

11134158 ?C0MM0N« 1 
-tlxWTW -7TTLE tTKEi t[NE PRINT 

11134158 ?FlUE TTY« TTY DUMMY 

11134158 ?FlUE S» XaUOI/CUSTOM 

"■Tn"3Tr5"8-~"7E r NTJ " " 

UI34I59 4|Q/R» 1 bOJ 1134 11/22/76 

11135100 PBD0032 OUT Oil HNEtO/R« 1 

rrrm-oo oka in sew XAUGOt customio/r« i 

11135132 DKA REL XaUOL CUSTOMIO/R* 1 

11135132 PBD0032 ReL Oil UlNE 198410/R" 1 

11139132 -~ 0/**" t t« tr»" 

11135133 FOR 0/R« It PROCESS* 19 SECS» JO* 32 5ECS* OUY» 
11 135133 PKT#0031 REMOVED 
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_k*BE_k._ A°M°J?M°A! M . P .L 7 81°i ? .E x ECUTE 0/R 

FILE! XAUGOU/CUSTOM 



FRIDAY 04/14/78 11134 AM 



/R 



* * * * * 



S# FATCH 400 TUW~)rAT^m,,iri TT CANTATAS ""W CARDS " 

COMMENT ;*.■■* *■■*■■■*•* * * * * * * * * * * * * ■ * * * * * 

******************************* 

_ _. ... DI ^_ 1?TPTraN 0F RCSL PatcHe:S 

5/5/72 

************************************ 



these patches are included to provide improvements 

in both efficiency and user convenience* they have been 

- e^xt^EU-FHtTH "A ~ VARIETY F SoURCfSi PRINCIPALLY FROM THE 
WESTInGHqUSE RESEARCH LABORATORY, 



~vm — nsrdl*pi - - 

THIS PATCH REDUCES THE SIZE OF THE DISK AREAS CREATED BY THE 
COMPILER AND SETS THE SAVE TIME OF THE NEWTAPE FILE TO 

■" " ~rrrrm""*mrTH£ line- file to t day. 

402 NSRDL-PC 1/4/71 DHB 

-TW ORDER THAT-TWr trwe PRINTER FILE WILL NOT BE LOST IF IT 

IS LABELEOUATED TO DISK AND THE COMPILER IS 0S*ED THIS 
PATCH CAUSES SUCH A LINE FILE TO BE LOCKED AND ENTERED IN 

THF-DTS-K DTRECTORY WHEW THE COMPILER HEADING I s WRITTEN 

BY THE DATIME PROCEDURE, 



^trT"*r$ROL"*FC- 



T9TT -" " " * 

THIS IATCH MODIFIES THE COMPILER LISTING AS FOLLOWS! 

A, A SINGLE SPACED LISTING IS ASSUhED BY DEFAULT AND 
Ttrr-T-ORTrON- JW STNtfLt w - HUST BE RtSET To~ GtVt 

DOUBLE SPACING, 

B, THIS ADDS THE ACTUAL PROCESSING TIME USED BY THE COMPILER 
Tft-^ HE SUM M A RY-ANORrMOYES TlTt ESTTMA-TE1? AttXTLL*RY 

MEMORY REOUlRED, 

c, this sets the compilers error limit value to a default 

Vtttff-Of-^S-rfttTS VAtUf WAY -fif tHA-|*GEfl AT COWP tfcE T I ME 

by the m ljmit« $ option, 



-*on — wr- 



this patch modifies and corrects the compilers method of 
calculating a programs core estlmatet 



405 



WR» NSRDL-PC DAVE BROWN 

THIS PATCH IMPROVES THE COMPILERS 
PROVIDING ADD 1 T ! 0NAL ~ SEGMENTAT t01t 
SOME £00R CODlNGt 



EFFICIENCY BY 
irot-frTREiffitTTNtr 



Trtrr—D-rvc- bro w n 5/5^72 — 

this allows 8 character bcl» 16 oct a de octal and 12 hexade hex 
strings so long as the flag bit is not set, 



407 



WR 

THIS IMPLEMENTS 
AC 1* J3 



BIJ3 






THE STORE 
*~-AT*p 



STAR 

W~ — 



OPERATOR OF THE FORM| 



AEXP CCONCATJ. ETC 



09417120 
00490010 
00490020 
0049T)030 
00490040 
00490050 
00*90060 
00490070 
00490060 
00*90090 
00490100 
'00490110 

ooflwrzo 

00490130 
00490140 
00490150 
'00490160 
00490170 
00490180 
00490190 
00490200 
00490210 
00490220 
00490230 
00*90240 
00490250 
00490260 
00*90270 
00490280 
00490290 
00*90300 
00490310 
00490320 
00490330 
00490340 
00490350 
O04W36U 
00490370 
00490380 
00*90390 
00490400 
00490410 
00490420 
00490430 
00490440 
004W430 
00490460 
00490470 
004V0WO 
00490490 
00 4905 00 
0049O5T0" 
00490520 







r 



THE STAR <*) AS THE FIRST -OPERAAND" AFTER THE 
REPLAOEMINT OPERATOR CAUSES A POLISHCDUP»LOD> TO BE 
EMITTED INSTEAD OF RE-EVALUAT I NG THE ENTIRE SUBSCRIPT 
EXPRESSION, 

liwuwmnm »irBfsrw»ir» w>wtk-wmswmwm «. »» • • t«i««i»* l .i.>*>,*..«k.*p > * > «« al 

408 NSRDL-PC 7/25/71 DHB 

TWO NEW FQR-LlST TYPES ARE IMPLEMENTED BY THIS PATCH, 
TRT FflLtWING TABLE GIVES EXAMPLES OF THE NEW FOR-LIST 

TYPES AND THEIR EQUIVALENT ALGOL-60 CONSTRUCTS, 
NEW FOR-LIST TYPE ALGOL-60 EQUIVALENT 



... - "TTBTC 

Ale 

* * ********* t pNO OF N^SL 

** P7JTCH 40 1 FOR X ALGOL.XI IT CONTA I NS 

DEFINE CHUNK s 9Q#J 

FILE OUT LINE DISK SERIAL t20l300] (RR3i 15»RR4>SAVE 1 )! 



A STEP 6 UNTIL C 
A STEP 1 UNTIL C 
PATCH DESCRIPTIONS 
CARDS 



* * * I 



— fr* V £ f 1 -L-E-gUt- "NCWTA-PE ~P T* K SXRI AL T201 600 3 t RR5 » RR6 » RR7 » S AVE 15) I 
S#PATCM 402 FOR XALGOL, XI 1 1 CONTAINS 6 CARDS 

IF Q»«LlNE»TYPE»12 OR Q«10 OR Qwl3 THEN X GOING TO DISK 

— ~ ■ "BTtrnt""" 

NAME FILES FOR REMOTES 

WRITECLINE)J LOcK(LINc>| X SO ITS NOT LOST ON 

L T*E YA RE AS tZEtwfl J 






Nl |»«1 I X DONT 
LINE|TtPEI*12| 

t"t NfrAKE* S t«rOt 

END 
PATCH NUMBER 403 FOR XALGOL CONTAINS 9l CARDS 
1+A-X-SEG- AND -tMPf^-VEO SUMMARY ADDED 2/13/74, DhB, 
INTEGER MAXSEGI I FOR LARGEST SEGMENT FOUND, 
ARRAY L1NIOI93I 

STRf AW~F R C E D UR I ~t OTJEN-Attf tN 1 < HZ* LTN ) t VALUE Nl«N2J 

BEGIN XCODE/NAME 
LOCAL ®t 

"St i »tof- trr t si r*s t * t i 

7(IF SC« H " THEN JUMP 
NtwTALLYJ X NUMBER OF 

-TrTTwtiTtrr o 5"? wb\, it* *■* 

DH«LINI DI*«0l*52l % 
DH*OI»NI DII»DI"NJ 

— ' *TT«tDC" "1*1* stt*st*t* 

N(DSt»CHRJ DHbDI + DI 

DSi»L!T"/"I DIt»DI*lf 
-STTvt9f~tr2T-"S"TT*S-r»'IT 

7(0S|*6HRI D!t«D!+l)J 
END* 
— ST RE A M PR OttDURE- UNptRL tNE( L IN) t 



OUT) TALLYl*TALLY+il 
CHARS IN FIRST NAME 
$T!*LTWJ DSliB WDSI 
TO THE »/* 



si i*si+i)i 



BEGIN 



SI t»Ll Nl 

DItwL iN i 



15(IF 8C»" * 
SIU5I + 2I 



SI t»Sl+38l 
DI l»P rr>8* 



THEN Dtl»DUl 
0j«»Ol+i>l 



ELSE OSH«L.IT n « w l 



^fftrt 

STREAM PROCEDURE NAME I T< A»B, W.LI N) J VALUE A,B.W) 

BEGIN 

i » N E » N A M » F TtT "LOT AX~N1 " 

DH«il5l DIt»Dl*37* StliLOC AJ Slt*$!*ll 
CH»CI+W| GO TO ZERl GO TO ONE! X GO TO TWO! 

D{rr»T2tTTwirrw" s tmb olt c*t - g o- to- wtki — 

ONfrt DSf p 6LlT"PATCH "I GO TO FILl 



00490530 
00490540 
00490550 
00490560 
-•00490570 
00490580 
00490590 
00490600 
00490610 
00490620 
00490630 
00490640 
00490650 

01556100 
01559000 
01510000 

01828800 
01828810 
01828820 
DS01826830 
01828840 
01828850 
00000000 
00 00010 
01693100 
01822500 
01 627010 
01827020 
01827030 

01827040 
01627050 
01827060 

01827970 
01827080 
01827090 
01827100 
01827110 
01827120 
01827T10 
01827140 
01827150 
0182T«0 
01827170 
01827180 
018*7190- 
01827200 
01827210 
0I6272?0 
01827230 
01827240 
TJT8T7Z50 
01827260 
01627270 
01827280 
01827290 
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2ER» OSlp 6L!T"50URCE") 
rTI ^_ t)tT _.. sl _ TT|r rTur . WJ 

NAM! OS|» 3LI T*» JS"J DSIW6LIT" "J 

7CJF SR." " THEN JUMP OUT; T ALL* »*T AlL¥*U SH*Sl + i)j 

1rr ^ T a l l V * -MT»3frwN1— frtT»ftt»WT D5T«*r ?HRT 

DS|*LIf n /"l SI»*LOC Bl $Ii*SJ+l) DS|*7 CHR| 
ENDl 
FC*E ~ - 

BEGIN X GIVE LINE FILE NAME OF CODE FIL E 

IF STATUS(LIN[*J) > THEN LI NE» TYPE! «l5l X REMOTE INITIATION 
_ tri^EiT«TTTJT*WTr X"rNZ«FI0l«N2T 
ENOI 
WRlTECLlNEXOBlli X 

— ~ — T»— *7**t»Mr » ■* # 1 * , *Tt 2 i n I " » A2f X i f A 3> i 

S VOID 

IF H i 12 THEN "PM," ELSE "AM,"); 

T~VOIOT' 018J5999 — 

IF Nl i THEN X NOT FOR REMOTE SO NAME MlS FILES 
BEGIN 

WRIT ETtT"NETD"BL TTI 

C00ENAME(NliN2,LlN)| WR ITE< LI NE» 9» LI Nt *3 > I 
UNDERLINE (LIN) | WRlTE(LINECDBL3#9,LlNt*3)l 
._ . _ trr< >c AR p „ >rrTTry . •H-gi-KCEftDiTTD*' 

if meRgeTog then x s tape 

BEGIN 

- - --WmrrfrTAFEiWfTD*TAPE,FlD»OiLlN>l 

N(|lTE(LlNEtOBb].9»LlNl«J)l 
END) 

IF C AR D«TY p E»l 2-TH£tt - - 

NAMt I T(Nl»N2»REAL< MERGETOG) »LIN) 
ELSE 

NAM gI T t*tTVftTr -*r*OttK "r*t AL< MfRGETOg ) # 1 1 N ) > 

WRlTE(LlNE£DBL]»9,LlNC*]); 

IF NeWTOq THEN X * NeWTAPe 

8tGlN — - 

NAMEIT(NEWTAPE,MFID»NEWTAPE,FID,2»LIN)I 

«RlTE(LINEtDBL3t9,LINt*3)< 

tJftn 

WRITE(LINE); 
ENDl _ 
"~™ "" OPTlONWORDl*FirL"SE*TRt^t^tNGtBiniri) '%' SET" SI NGLE RESET REST 

OPT!ON$U3liM| X FOR SINGLE SPACE TO BE DEFAULT 
"«SlN6L"»t» X 42* 43 

ST«T5TrTTrGT»TttOTJ ~* DTFAULT"TTWGtE SPlCE Lt STTNG 

ERRMAXl«25l X DEFAULT VALUE, USER CAN CHANGE BY $ CARD 



FORMATPAN ( X 
Xi6,2A4»//» 

"Program size i 

»HD5 O F CO D E " / - 



60MPILER SUMMARY 

t 



CARDS PRT 



-tWl bf TTWE -w*t*»~I N -- nt »-■ St C NO* i * 
DISK SEGS PGM SEGS MAX SEG " 



Xi4#i5» i7# no» ni»no# n?// 

"ESTIMATED CORE STORAGE REQUIRED ««I6." WORDS, «)J 
W RlTE t LINE» P r Nr- X C O MP I LE R -^tmART — " 

ERRORcOUNT*T!ME(2)/60»(TlME(J)"TlMEn/60#GTt»GT2# 

CARDC0UNT*PRT1MAX» 
TT DASCHU N K -TH E N D A XL 3r-^frtttroK*t*nt* t»P*?CHtfflK7 



01827300 
01827310 
01827320 
01827330 
01 62734D 
01827350 
01827360 
01828860 
01828670 
01828880 
01828890 
01828900 
01629000 
01632000 
01832500 
01835000 
01BT5W1 
01835025 
01835050 
01835075 
01635100 
01835125 
01835150 
01835175 
01835200 
01635225 
01835250 
01835275 

0183530a 
01835325 

01835350 

016-35375 

01635400 

01835425 

01835450 

01835475 

01835500 

01 8355 25 

01835550 

01835575 

0213X300 

0213U00 

09027044 

09D26020 

09628910 

09274400 

097744 1"0" 

09774420 

09274430 

09774 44~0 

09774450 

09774460 

09*T70U0 

09417500 

09418000 



-;69* 185 
09419000 



SGAVL"1#MAXSEG#AKKUM, 



8 



1" 



GT 1 1 > I 

" " TFI'ffJ 

IF SlZE>MAXSEG THEN MAXSEG I -SIZE I X LARGEST SO FAI 
it PATCH 404 FOR XALGOL.XIII CONTAINS 7 CARDS 

-$-Yrmyt - — - 

GTI1!«!F NOOFARRAYS > 10 THEN 5000 El&E NOOF 
t VOID 09361061 

— -cr-rmrrttmr-AKKUM > 10000 then sooo else 



ARRAYSxSOOl 
AKKUM/2JI * 



X 

X 



IF (lOTEMP!»GET(L-2)),t46|23 * o THEN C 
" ~ ~ If " t70TE*p-r*GrTCt*n 3 , 1 46T23 * THEN I 

*# PATCH 405 FOR XALGOL^XHI CONTAINS 269 C ARo5 

DEFINE EFFSEGMENT wDEFINE ZOTSEGHERE«##J X TO FORCE A SEGMENT 

*-VtnU 0T339U5I " 

DEFINE FSAVE«RR10#| COMMENT SAVES FRACTIONAL PAR 

INTEGER IDUOCJ I POINTER INTO IDARRAY (FILE PARAMETER 

J VOIDT 01419001 ~ " " 

S VOID 01525001 

INTEGER KOUNTJ 
T T071T OTSOTDTn 

$ VOID 01687001 

* VOIDT 01737251 

r-TOTD 017860OT"~ 



URRENTtwlOTEMP 
OTEWPt«lOTEMP DIV 



T EXPONENT I 
BLOCK) 



DEFINE LQOKDEC** 
tl 

— ttttjKtJtc-i Dm ; a w$ - 

SVOID 02023000 
S VOID 02263001 

1 LocK<P PC»Jr r 



USED ONLY IN SEARCHLIB, SEE 02013184 
X END OF LOOKDEC DEFINE 

STREAM PROCEDURE LOOK SEE 2001010 



t VOIDT 

-s- v o idt 



COUNT|#OJ T 1*631 « 



LOCK«WOPt*3 5l 



VOl D 
VOid 



03018001 
03033001 

tttT* tr -HRCtt*N- THEN CONSTANTCLEANP ENt)*J 
PROCEDURE CfiNSTANTCLEANPJ FORWARDI 
DEFINE PASSTYPE(E)»((E f CLASS»B00PR0CID),t46l2])#l 
DEF I N E- S OR TST MTm^OlH^ERGE-STMTtFftLSE ttv 
MERGESTm?«SoRTmErGESTmT(TRUE)#> 
PROCEDURE SORTMERGESTMT(MERGE)! VALUE MERGE; BOOLEAN MERGEI FORWARD* 

BEGIN E F FSEGMfcN T l - " ' " 

PROCEDURE CONSTiNTCLEANpl 
X 

BtUTN "tFFStG'ME'NTT" 
END B2DI 
SVOJD 04277000 
BtlilN EMSEGHlNTl 



BUGGElcS.t 36 HO 3) eLSe 
BUGGERC$.I36»10J) ELSE 
TND EFFSEGMENT DEBtrGI 

COMMENT PACK IS A STREAM PROCEDURE 
INTO THE FDOC ARRAY, THE 



wop[Tu»if Tt»i then 
wop[t13#if ti»i then 



which insert 

SPECiFiC ELE 



— 1$ — pREcisi l y~* e d o c c c tr-tnr*-**Hrttr-Tm 

S*LLABLE POSITION»<L MOD 4 ), W HERE L 
NUMBER RELATIVE TO The BEGINNING OF The 

:WR€" P A C K ( W R D rf*0$tTl ONT&Y L L A BfcE >-t 

VlLUE POSiTlON«SYLLABLEI 



RR10 
RR10 

S THE SYLLABLE 

MENT OF EDOC 

©TV" 47*00" -T2*T 
THE SYLLABLE 



IS 

SEGMENT! 



09419500 
09419750 
1368H00 

09361005 
09161040 
09361050 
09161080 
09361100 
13113000 
413148200 

01800060 
01339050 
01340500 
01341000 
01416500 
01525000 
01583000 
01598000 
01684000 
01537000 
01786000 
02801010 
02801610 
02813184 
02020000 
02262000 
O256T00TJ 
02491000 
02716000 
02904000 
03018000 
03031000 
030 3 40 00 
03834100 
03874000 
03081 00*0 
03082000 
03082100 
04143000 
04163000 
04164000 
04247090 
04248010 
0426 5000 
"04278T0U 
04281000 
04286000 
0428TTtrO 
04292100 
04292 110 
04 292X2"0" 
04292130 
04292140 
04292150 
04292160 



e 



DEFINE 
*V0ID 



BEGIN 

Ol*WQRD I Dl ♦ DI+POSlTjON I Dl ♦ DISPOSITION! 
~5T^tOtrSYLLABLE *~$l*Sr*6! 
0S*2 CHR I 
END PACK I 

— *n - ■■ ■ 

RRtOl*CIf 0*10 ThEN 0P t C39l3H0P[4ll36m 
PUNCM(FL#ST)*IF WRITNEW(FL.ST) THENII 



RR10I» W 



ELSE 



5056 001 
05101000 

BEGIN EFFSEGHENTI 

Trmn*F*TT - 



FLAG(ERRNUM); 



BOOLEAN RRB2I 

DEFINE CHECKPRESENCE » X FOR EFF 

rt»irt HEC KPR E9ENC Lt*J 

BEGIN EFFSEGMENTMF SPAC«0 THEN SpAoGETSPACEC TRUE* -2 ) I 



EFFSEGMENTI 

BCGTtT I f F S E 6 -HCNTT 

DEFINE CAiUSilTGHCHJit 



RAKTGML Ct AS 5 it OWE R A nD EttL A 5 S*U PPER E NO * 



#1 



"*"V0tT?~ 093 2 5 Wt 
S VOID 05387001 
SVOJD 05407001 

TTETT*t IFCLAU$E * * 

BEGIN STEPITJ STACKCT ♦ 0; BEXPj 

IF ELCLASS * THENV THEN ERR(li6)EL$E STEPlT 

* VOID 06411001 

EFFSEGMENTI 

"""-"" rrrsTGWENTi 

BEGIN 

HOLE *> 2 - REALCFRQM)* 

" VA^lAB-LECHOtEM 

go to exit 
end; 

^.p^g^^^^ . 

DEFINE CuRRlfJ X To HOLD L FOR A WHILE 

BEGIN 



END 



^ELIMINATE 
XNAME CALL 
TEX P RES SIGN 
XPRT CELL 
XACC ENTRY 



XA 
IFCLAUS 



X74 
X74 
X74 
X74 
X74 



DEFIN E— C^l^r 



$ VOlDT 



BEGIN 



I-T*t*tT-*TrPtTj ~t 

MOVECODE(TEDOC»EDOC)I X 
VOID 08276001 

t Ot K ( n L E ATT* TBtJTrM » tt 1 



i twf ileattr rBtrrt-sto 3 1 



PROCEDURE SORTMERGESTMTfMERGE)! VALUE MERGE* BOOLEAN MERGE? 

BEGIN INT t; GE R J t M F 1 L £ R » » i rtltpf "L *BTfr "Wrtt- BVOttAW U?f OG » rNPROT 
OEFInE AwK## RDS*1»280#» oUTpRO*OPToG# J 
COMMENT ARRAYCHECK CHECKS A PARAMETER-I NF KORD FOR SORT/MERGEl 
BOOLEAN PROCEDiaRE-AWrATCHttXtA-AWj) VALUE AA*! REAL " AAHT 
ARRAYCHECK*AAW,CLASS<BOOARRAYID OR AAW,CLASS>INTARRAYID 

OR AAW.INcR *U 

COMMENT COMMACHECK LQOK5T"OTf"C~0*M*$~ANTJ STEl^lTROTJmr THEM) 
BOOLEAN PROCEDURE COMM A CHECKj 

BEGIN ff N0|(COMMaChECK*(STEPI»C0MMa)) THE« ERR(350)| 
S TE PH 



END COMMACHECKI 



04292170 
04292180 
04292190 
04292200 
04292210 
04 602OO0 
04406000 
05831100 
05050000 
05061000 
05106000 
05152500 
05166100 
05184000 
0518T«00 

05760000 
05293100 
051 04<H> 
05315000 
05316100 
05317000 
05379000 
05368000 
06Z9II00 
06291200 
106291300 
06291400 
06409000 
06414100 
0642UI00 
07402000 
07402100 
07 40?200 
07402300 
07402400 
07338T00 
07596100 
07609200 
07*46397 
07646760 
07689000 
0T#9tt)Gl3 
07696500 
08246000 
0*4*3140 
08901000 
08901200 
0*902000 
06902010 
08902020 
0890?03T 
08902040 
06902050 
0*90*OTO 
08902070 
06 902060 
0*902090" 
08902100 



r 



COMMENT HVCHECK ChECKS VALIDITY OF HIVAlU PROCEDURE FOR SORT! 
- -BWLTA"N TRUCEO0RE HVCHECK(ELBW) J VALUE ELBW J REAL ELBW! 
IF ELBW,CLASS#pROCID THEN ERRC356) ElSE 
IF BOOLEANCELBW.FORMAL) THEN MVCHECK*TRUE ELSE 

— rTTAKE:r6TT*ffTTtXT.B1«7>l»t THEN £RR? 357 7 ELSE " 

IF ARRIYCHECK(TAKE(GT1+1)) THEN ERR<35»> ELSE 
HVCHECK*TRUEI 

'" COMMENT OUTPfrOCRTcK CHECKS SORT/MERGE OUTPUT PROCEDURE! 

BOOLEAN PROCEDURE OUTPROCHECKt ELBW ) ! VALUE ELBW* REAL ELBW! 
IF ELBi,CLASS»tpROClD T H EN ERR(35l> EL S E 

— TT"-ffOiyLCAN(ELB¥,ToR"MAL) THEN DUTPROCHECk*TRUE ElSE 

IF TAKt(6Tl*GlTCELBW))i»2 THEN ERR<352> ELSE 
IF TAKEtGTl + U.CLASS^BoOlD THEN ErR(353) ELSE 

IT -ARRirCHECKtTAKrtGTl»25 ) THEN ERRC 334 ) ELSE 

OUTPROCHEcK*TRUEI 
COMMENT E«LESCHECK CHECKS THE COMPARE ROUTINE FOR SORT/MERGE! 
-BWtFAl*"P1WcEDURL T*LX5CTTETl<trLBW) t VALUE EtBW J REAL ELBW I 
IF eU8«I»CUaSS#bO0PR0cID THEN E* R C359) E LSE 
IF BOOLEAN (EUbW.FORMAL) THEN E«UeSCHECK ♦ TRUE ELSE 

rr "TUKttG rr*^i t rEttm r* 2 then e*r x 3 « ) e l s e 

if arraycheck(Take(gti + d) then errc3*i> else 

IF ARRAYCHECk(TAkE(GTI+2)) THEn ERRCl6?) ElSE 

- - -Em.f-S-t*E-eir*TRUE'j - 

STREAM PROCEDURE STUFFILEC IDLOCtFN* SFn)! 

VALUE FNt SFN I 

" BEG I N D I * IDLOC J D t»t> 1 *5 J D I *DC } 

SI*LOC FN| SI»SI+5f DS»3 CHRj Sl+61+7} 

D8*lt LIT^OOOOOOOdSRT"! DS*CHRl SI*SI-1; 
— — Dtwf ... t _ 1T «_ 9xjSfrr » 1 „ DSrCHfrr 5rN>1[iI j $i* t Oc SrN| 

DI*IDLOci OI*DI+5| Sl*Sl+5» 0S»3 CHRJ 
END STUFF lLE> 
" " ' BftOttttN- PR^CtWRt" iNPROCHECKtELBX ) * VALUE ELBW* REAL ELBWI 

ip elbw.c l ass#booprocid then erro63) else 

if booleancelbw, formal) then inprocheck*true else 

" tf-T-AXfTGTrfGITtfLBWjT*! T*EN ERRC 364) EL&T 

IP ARRAYCHECK(TAKE(GT1*1)) THEN ERRC365) ELSE 

INPR0CHECK*TRUE» 

... — hf _,. 1 ^ rR ^ t .-.. TtttN _... 

BFGIN % MERGE 
END M E R 6 E 

EtSE 

BFGlN % SORT 
»VOjo 08943000 

Etr6~s<tfm 

end sort and merge 
t 



STATEMENTS! 



VOID 09024000 
VQIOT 



PROCEDURE GETREADYl 

BEGIN EFFSEGMInT) 

S V O I D* — — - 



VOIDT 09028073 
VOID 09056001 
L O CK( T t.Nl»m 



-*--RtAir-tmL-r 



LOcK<SfECIAH*J)I * READ ONLY 
LOtK< SUPERSTACKt * J > I * READ ONLY 

— g Ti ibgetspac e c T R u tT^rr-E-RRomoGrtTRurt 

END GETTING READY! 



08902200 
08902210 
08902220 
08902230 
08*02 2 40 
08902250 
08902260 
08902270 
08902280 
08902290 
08902300 
08902310 
08902320 
08902330 
08902340 
08902350 
08902360 
08902370 
06902380 
08902390 
08902400 
08902410 
08902-420 
08902430 

08902440 
08902450 
08902460 
08902470 
08-902460 
08902490 
08902500 
08902510 
08902520 
08902530 
08902540 
08902550 
08902560 
08903000 
08904000 
08926000 
QtfVZTffOX) 
06928000 
08929000 

08998000 
09003000 

A m% /\ fl% j. A. A it ■ 

09w2400u 
09025000 
09025100 
09027000 
09828068 
09042000 
09251310 
09251320 
09251350 
0*774000 
09774010 



e 



procedure cleanup* 
begin label uj 

-Sf-RtAW PTTOtEWtE - MOEStT *D» tOLOCri V ALUE Wf) f 

BEGIN DULOC WDJ OS* SET* SI* LOC WDl DI *ToUCJ DS*WOS ENDI 
COMMENT THE FOLLOWING PROCEDURE PRjNTS OUT THE PRT» NAMEi AND 

" S E G ME N f --Ntmet*- OT-tHE INTRINSIC PROCEDURES USED IN THE 

OBJECT PROGRAMJ 

STREAM PROCEDURE WRTJNTRSc(SgNO, ALFA.PRT»FlL ) | 

._ VALUE SsNOiPRTf 

BEGIN LOCAL COUNT, DESTl 

Dlt-FILI DSlM LlT"PRT(»J SJMLOC PRTj S1LSH-4J TALL^IM* 

— nrttr-^cw»ir»"THtinr oo'nt p* rurr lea di ng zeroes, 

BEGIN SIl»SI*n TALLV|*TALLY+63 END ELSE JUMP QUT)| 

"I 



COUNT|«TALLt| DS|»COUNT CHrj DSl*4 LIT") ' 

"sTT*AtTAi ~sn ; »sr*rj - desu*tj i i x- save d r ♦ 

Dll'LOc COUNT! DS«»7 LIT*0"l DSI'CHR; * NO OF CHARS IN NAME, 
Dll»DESTI 0SI»COUNT CHRl % INT, NAME, 
T»5T¥2T^TT^~T!TKTW£rc » ~UWt NT WOW* " * * ) 
Sl«» loc SGNO? DSI*« DEO OSULIT","! 
DII*DI»51 DSU4 FILU X JUNK LEADING BLANKS, 

rWDWRTTNTRSCT" ~ 

DEFINE STARTlNTRSc-426#J 
ARRAY PRT,SEGOICTCOI7»OI1?7)I 

■mtctrcir-ptT*irRT«xtfrRT» lj nk r 

integer procedure moveanDblockcfrom»size)i value size* 
array fromco»ojj integer size! 

- — — ~ BEWr INTtGTRNSEGSrtvJj 
REAL T I 

NSEGS*(SIZE+29) DI V 30| 

1T-OT-trtV cmM**f**DA*N$E(ySt--DtV CHUNK THEN 
OA*CHUNKxT| 

movfandblock#daj 

00 BEGT* fOR J-*"6 STEP 2 w H TtE J<30 ANdkStZE DO 

BEGIN M0VEC2#FR0MtI DIV 128, 1 MOO 128],C0DE(J 



S-fl?f-A"M- 



END 

pirocEtw*E 



BEGIN 



1*1+21 END! 

W«tTECCt)t)ttDA J ) J DA*DA+l t 
END UNTIL IfcSlZEJ 
MOVEAND BLOCK! 
-*t*0tHT&t$Ti WXt V32* NMOD32") J 
VALUE NDIV32#NM0D32 I 
DI I" DESTI 

mnTW37njs~T*a ctt^tji-. 

NM0D32CDS »« 8 LlT*0»)l 

END! 
- t VOID " *3 3 3 3- ~ - " 

* VOID 09348000 

GTll»MiNc(IDL0c*MKABSciDARRAY[0j)),[33«i5]+l#128); % 

— — — — - BtTTTN ~ " ~ ' 

* VOID 09415000 

END OF CLEAN UPl 

1 % %%%%% *% %%%%% A C TUA t COMPi LATtON DONE "MERE XXXXXXXXXXXXXXXXXXXXXXXXXXX 

DEFINE PROGRAM p 

GETREADYl 
^L- pcKC F^L-^EM " " 



cleanup* 



fXXX %%%%%% XXX X X X X X X X X X XXX* X X XXX~XXXXX~X 



09774020 
09774030 
09274040 
09774050 
09774060 
097? 40 70 
09274080 
09774090 
09274100 
09774110 
09774120 

09274130 
09774140 
09?74150 
092r4160 
097M170 
09274180 
09774190 
09274200 
09274210 
09T74220 
09774230 
09774240 
097T4250 
09774260 
09274270 
09774280 
09274290 
09274300 
09*74310 

09274320 
09274330 
09274 340 
09274350 
09274360 
09274370 
09274360 
09774390 
09275000 
09275010 
09275020 
09275030 
09275040 
09275050 
09*17000 
09334000 
09394000 
0"940900t* 
09410000 
09420 000 
094211XOO 
09421100 
09422000 
09*23tW> 
09424000 
09424100 
XXX*O9*25O#0 
09426000 



))! 



t" 



checks to see if an int 
■ otherwise m a ke sign pl 



EFFSEGMENTj 
COMMfNT GETttlf DOE S A CALL ON NEXTENT AND 

was the Resulti if not eRROR 
boolran procedure getjnti 

-Frirrw-NrxTr'nr if elclass * * elclass < o then 

if eiclass«-c**") then geTint*true else 
begin fl,agu37)j elclass ♦ end 

- - - --cuo tjettnti 

comment divide partionS the parameter nu m ber into three parts, t 
result is passed back through pl»p2« and the function 

— - ttttwT rrrtir, set code rtm details* 

INTEGER PROCEDURE DI V IDECnUmBEr.P1 » P2 ) I 

value numberi integer pi»p2>numbErj 

■■ • "BtGtN 

IF NUMBER < THEN BEGIN FLAG(l38)| ERRORTOG*TRUE J 

NUMBER * ENDI 
_.„.. vr .. w JT NuMBrR ■•< 8 THE N NUMBIR ELSE 8| 

numbfR * numbeR-pu 

p2 * if number < 8 then number else &i 

DIVIDE ♦ NUMMR-P2 END OlVi'D'El ' 

$ VOID 10193000 

DEFINE PACK !NF0(iNF0»lSK IP » COUNT, ASK IP »ACCUM)s 
HU VECHAT?HTTERSXCoUNT*ACCUMtASKIP*3t I NFo» I SK I P )# J 

« VOID 10240001 

* VOID 13144001 
$" VtjIT) T32T0TJ0T 

BEGIN EFFSEGMENTl 
$ VOID 13537001 
P U T CXlN E X TTNTOrr *" tm EFF , , , 

BEGjN EFFSEGMtNTl 
DEFINE M0VE2CS»D)»M0VEC2»S*D)#I 

* VOID 13682001 

EFFSEGMENT) 

- — ■ -B€#ttrHAl»DLfSWtISTl 

GOTSTORAGE » NOT SPECTOG OR GOTSTqRAGEI 



EGER 
US) 



HE 



START END! 
G-TAtt JT*»i*l 1*0 



THEN FLAG(23)#| % 



XSAVE 

XPRT 

XCELL 



GO *Q 
— BE-PitfE- ettK-S-aB»tF 
$ VOID 14273201 

EFFSEGMENT; 

ETr5rGWrNTJ 

$ VOID 15019001 

REAL STREAM PROCEDURE GETALPHAC INFOI NDEX# SI ZE ) * 

VAtUE size r 

BEGIN COMMENT GETAUPHA PICKS ALPHA CHARACTERS OUT OF INFO AND 
FORMATS THE ID WORD THAT IS PASSED To PRINTI, THE FIRST 

THt~MZE7 TKE" NEXT XKKf* ACTTR CONT A INS 

ALPHA teEET JUSTIFIED WiTh TRAILING ZEROS! 
DItLOC GETALPHAI DS«-8LIT"0 ?•! 
SlMNFGlNDlX; Si*Sj*3l 



THE 



D1*DI-7| 
DS*STZE CHR» 



$# 

s? 

St 
SI 



END GETALPHAI 
PATCH NUMBER 406 



0070000 
0105005 
0105010 
0105020 
0105030 
0105040 
0105050 
0105060 
0105070 
0105080 
0105090 
0105100 
0105110 
0105120 
0105130 
0105140 
0105150 
0105160 
0105170 
0105180 
0175000 
0?33lOO 
0*33200 
0236000 
3115000 
3209000 
3369000 
3532000 
33V3t>aO 
3632100 
3474000 
3675000 
3682000 
3715100 
4168000 
4168100 
4168200 
4?73100 
4273200 
4527000 
5006100 
5014000 
5830100 
5030200 
5830300 
5030400 
5030500 
5030600 
5030700 
5030800 
5030900 



FOR XALGOL CONTAINS 31 CARDS 

"tfrtr T6 ~tKTT-*t)C -tfCTAX UNO" - \T~Kt* ADr WE* ST 
ACCEPTABLE S* LONG AS THE FLAG BIT IS NOT SEf# 5//S/72 DH8 
THl^tHANGES THE WAY THE COMPILER TREATES OCTAL AND HEX STRINGS, 
*ft€--Nt>*--ei>*$-t BE R cp " ** " * " * TR1 NG OR ST* 1 frGt ON AS OTHER S T R I nG 

this does not change the way algol uses these constants but 



RlNGS«9triTHD 
02576030 

02847005 

S 0284T010 

02847015 



r 



St 

-ft 



IN XAUGOU THE -STATEMENTS! 

REPLACE ii i BY "A"! ANO 

"~" " * EPfAUt ■ V T . BT 3*2 1 " i 

SI WILL GENERATE THE SAME RESULT, 1/16/74, 
PROCEDURE OOOCTALORHEXSTRINGI 

BTSTN~tABEL AWA"f7~X ~ 

RfSULT!»5» SCANNER! % SKIP QuOTp, 

COuNTt»0! GTH* 48 01 V C! % 16 OR 12 

_ OT ~ BFeTfj 

RESUtTlwSI SCANNER! 

IF COUNT > GTl THEN X > 1 WORD LONG, 
¥rBTff . E1TR . f520 . Tr oTTI * or Q0 AWRY EnDj 

END UNTIL EXAMINCNCR)**""! 
■ QfpACCUMCiSf RESUUT|*5! SCANNER! COUNT »»CQUNT*t ! 

- - If' C«3 THENt- OCTAL STRTNGi 

IF 0CTlZE(ACCUM[U,ACCUMt4jil6 w C0UNT»C0UNTJ THEN 
FLAG(521> % NON-OCTAL CHARACTER IN STRING, 

if HEX rzrnrcirWTtT* Axctmttrng^cotrNTi count ) then 

FLAG<521>! I NON»HEX CHARACTER IN HEX STRING. 
C0UNTl*(CoUN|TxC + C) OfV 6) * NUMBER OF 6 BIT ChAR IN 

-— " MtJVtrCH-AKACTtRSlCOONT, ACCUM[4] » B-CqUNT, ACCUMt 13 » 3) * 

G?ll«l! QisACCUMCl J U( * >&COUnT[ i 2 142 16 J ! 
AWAYi X 

tTftr-TJCtAX" T}R™flt*™STRTWG7 

strngxt#argh# % 
IF COUNT < e OR 

rOUNTlB AND NOT BOOLEANC 0, MB U J ) THEN % NO FBIT STILL OK 

S VOID 02704001 

BEGIN % 

ff00rrjfCOirwrX . yTR . J1(Sf „. I 

IF BOOLEAN(GTl) THEN GO TO STRNGXT! % WAS VALID 



TtrSl 



S VOID 02765001 



S VOJDT 0278200* 
S VOID 02847001 
S» P A TCH-»0 7 F OR 



TO TtT SCAttAGATN! 



% WAS AN ERROR 



XAtGot ,-xr n - 1 on ta i m 

IF ELcLaSS»CROSSHATCH 
STePIT! SJMPARITH END 

-rNTEtjrR~s-t;r— — 
if elclass«factop then 
if linktog then % 



22 CARDS 
THEN BEGIN 
ELSE 



02847020 
02847025 
02847030 

02001855 
0700TB56 
02001900 
02001905 
02001910 
02001915 
02001920 
0200 J925 
02001930 
02001935 
0200T940 
02001945 
02001950 
02001955 
02001960 
STRING02001965 
02001980 
02801985 
02001990 
02001995 
02438000 
02703000 
02703010 
02704000 
02562000 
O2T6TOO0 
02764000 
02765000 
02T86OO0 
02767000 
02847000 



IF 



last Syllable is not a link 
rf ,_ rstr _ t j rrft _ lirTn ._ t 4l6mwT uft 5tl( . 5T3 _ TttCN . frEG1 H . 

ELBATtIJ,CLASS*ELCLASS*CROSSHATCH! STEPlT! 
EMITO(OUP)! EmITO(LOD)! GO EXIT EnD! 
1+"ftr€t^«^iro^ SNATCH THtir-GT4-»^00'SE-C-*B TTpE EL SE 
IF Pi # FL THEN STEPIT! 
IF T1#0 OR ELCLASSwFACTOP THEN BEGIN EMlTOCDUP)! 

— e m i t o ( c o c Tr-rr-T i *■ o Atrp- trtcLA^s-^rACTOP tk&\ 

EMITOCOUP) END! 

ELcLASS»FAcTOP THEN BEGIN 

rtjr rtw'-jNu elclasstsctop 
endi 

BEGIN 



ELSE IF TMO OR 
— -T^TTVTTAtt- - 

THEN EHlTO(OUP) 

elclass»factop Then 



TCtt*TTnTCL**S~* -ELCUA^S- ♦CROSSn tTtHTlrt ! 

BEGINS 
IF ELCLASSwFACToP THEN BEGIN 
rtrB-ATttr,-CL"AS-s-yrttL A-Sy>TR S S H AtCHl 

EMITO(DUP)! IF T1*0 THEN EMITOCLOD) 



06003200 
06003400 
06089500 
06091200 
06091300 
0609y4"0O 
06091500 
06091600 
061525t)0 
15092015 
15095000 
t50953W 
15095600 
1509 7000 
15097500 
15097600 
X93 15098025 
JT9I I5rO9$D3"0 
15098200 
15 3062 00 
~ T5"3tnS*W 
END! 15306600 



t" 



SIGNBI'FALSEIX 



S# PATCH 408 FOR XaLGOL.XHI CONTAINS 19 CARDS 
UBtt TXTT»GTTCI* 
or el.cUss*leftpaRen OR E^Cl-ASS«cOLON 
IF eUcLass*colon then % 

- best** 

simplebi«»constanbi*true! 

8l»U E^CLASSIpUNTILVU 

plug (True, nu 

END* 

elsex 

" f^TETPJi'UNTltV OR ELCLASS*RTpAREN OR ELClASS.WHIlEV) 
OR CLCUASS«RTpAREN * 
BEGIN %% COLON MAYBE 

IT ELCtAS5*C0L0N THENX 

BEGIN* 
CONSTaNb«"TRUEI SIGNBI»FAUSEI Bl"U 

" " " "CNUTl " 

IF FORctASSCUNTlUV) OR eULASSwRtPaReN THENX 
IF SIMPLE(CONSTANC»0»SIGNC) THENX 
FNDJ XX WAYBE COLON 
NUMBER 410 FOR XALGOL CONTAINS 389 CARDS 



GO GETC » 



geTc» 



S# PATCH 

S« IMPLI 

■"rr"THT*'~ 



HENTS SfSTEMlD* NABS 
tS-TWf-TPC "PATCR TOR 



BOOLEAN 



TASKID 

EVENTIO 

TPCPR-OCIO 

SIZEV 

TASKV 

EVfNTV" 

I PC JOB! 



TRUE 
I.E. 



*115#» 
■ll6#i 
• HTt, 
■21#» 

»22#« 



ANO NOBITSON, 
ALGOL AND XALGOL. 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



10/26/72 
D, H, BROWN — JAN, 1973 



X 
X 

- r 

x 

X 

X~ 

X 
X 

— ;■*-- 

poweRsoften 
lastse^uencf 

-S-OlfTA- 



163! 

164! 

165! 
251 
261 
27! 

FIRST 



BE COMPILED, 
IPC PROGRAM, 



T F "PROCEDURE" IS FIRST THING TO 
IF WE ARE COMPILING AN InVOKABlE 
AFTEr PROCESSING THE IPC PRoCEOURE SPECIFICATION THE 
CF CONTAINS 2xMARKt WHICH PoInTS To THE PARAMETER 
SPECIFICATIONS IN INFO. THE FF IS USED TO COUNT THE 
"NUMBER "OF "PROTESS*" STATEMENTS* IF IPCJOB TS NON ZERO 
AT WR A P UP THEN THE CODE FILE IS MARKED AS INVOKING 
AND/OR INVOKED AND* IF NEEDF&* A PARAMETER DESCRIPTI0N014Q1 170 
SFG^ENT-TS WRITTEN IN The CODE FILE, 12/13/72 DHBR0WNO1401I80 
*758#. 01574000 

■249#, X 760 - 511 01575000 

•739*T ~ ~ * 015800XJO 

<X2§, "CUSTOMS B-5700 IPC XALGOL COMPILER MARK ". 01830000 

PROCEDURE TaSKA*TRiBUTEhANDLERCF>* VALUE F! INTEGER F! FORWARD!*0776600003Q61250 



08017000 
08103100 
08111100 
08 1 II? DO 
08111300 
08111400 
08111500 
081H600 
08111700 
08113000 
08128100 
08182100 
08182200 
08182300 
06182400 
08182500 
06184000 
08185000 
08? 22 100 



01778060 
01?78065 
01778070 
01296600 
01298650 
01298700 
OlAOnOO 
01401U0 
01401120 
01401130 
01401140 
01401150 
01401160 



EXIT! 

NABS 



**- 



- 1****N©tttN* BfLAYfDELTA* oTHEfSj SYSTEMfO, 

maxanDmIn* MAXANDmIN. delay* ABS, % 
SYSTEMIDl 
-B^0fE- AN( t T trrftB*T-C- Mt? VOT TM£"N * WPON<» TYPE BOOLEAN 
BEGIN ERRC103}! GO TO EXIT END* 
It T2l*Tl,t27l6]<9 OR T2S50 THEN 

-ir^-YO-srtr Tttt>- the*- t2»*o else t**i-ji 

PANAI EMItOCIF T2w50 THEN SSN ELSE SSP)! GO TO EXIT! 
EMipt E»lTL( 7)| EMlTL Cl)! EMIT0(C0M)J STEPiT! GO EXjTl X FPM 
IF ELCbASS*EVENT!D AND RE*"tT" THEN "T TfFAtTETEflTTOT IS: OK 
BEGIN EMlTV{ELBATtlT>'STEPlTf <JQ E*lT END! * EVENTS ON 

If ELCLASS*TASKI0 THEN * 

_..__ ^^. |lq ^^ ATWBWEWA ^ 

PROCEDURE BIMPFUNI * HANDLES THE BOOLEAN SPECIAL FUNCTIONS 



ABSI 
SYSTI 



O6D6DI00 
06061100 
06061150 
OUD6"1500 
06061750 
06062000 
060**050 
06067000 
06873150 
06WOTT8 
STACK06090179 
06092075 
06092077 
06210010 



9 



r 



BEGIN X 

blBTt OTHE^yifl "XTFRFE » A VA 1 LaBLE i AC«Ul Re ' H aPPENED » PENO * NOB I TSON $ 

EXlT.eKRPN) 

Switch % 

-FWtwfrTKfftSrFT Xrf «FflAYAtt-ABbE * AC«U1 «E .MAPfENf O # Pf NfrtNOftl TSON* 

DEFINE HAPBlT m 8#, * BjT f44IU I* ON IF EVENT HAS HAPPENED, 

BIT C4H1J 15 
IF THE AVtBIT 
THE MIX INDEX 



AVuBlT * l#l 



X 
* 
X 



ON 
IS 

OF 



IF EVENT IS NOT AVAILABLE, 
ON THEN EVEnTyFF CONTAINS 
THE PROCESS IN CONTROLi 



REAL T1#T2; 



IF 

IF 
IF 



BEGIN 
BEGIN 



ERR<105)| 
ERR(55A)1 



GO 
GO 



EXIT 
EXIT 



END) 
END) 




2 



THEN 
THEN 



COMPILING AN INVOKED IPC JOB 
CAnT FIX OR EREE A 
FORMAL LEVEL 1 EVENT 



HERE 

FORMER 

FORMER 



STATE 
STATE 



IF t S Ti|»ELBATtI3,t27t61 < 6 THEN X FIRST PARAMETER MUST BE EVENT 

" "BEST* 

IF stepi + leftpaRen then 
stepi * eventid then 

Tn~X-THTTVTNT 

REALtlPCjOB),t33»153 # 
Tg.CtlTJ * 65 AND Tl $ 

~ Ft7fGt-55TTT"" 

STEplTl 
END) 

G o To -rtmtrrrt-tr-i to proper synta*er 

OTHERS) GO EXI$i X ACTUAL BOOLEAN INTRINSICS WOULO GO 

fix) x make the event *#*not*** available and return 

~rRrE~» X- MfiKt TMr- EVENT rrrv AV A ILABLF **** AND RETURN 
EHlTVCT2>) EMITO(DUP)) X 2 COPIES ON STACK 

emitpaiRchapbit.lnd)) x Resets eveRThing but hapbit 

1 F T 1 »t -TtttN- E-rl-T^Al Rt A VtBl T f bt?R)l X Ft X ~» 8 1 T ON SO NOT A VA I L 

EMITN(T2)) EMITO(STO)) X CHANGE IT 
EMITO(LNG)) X RETURN TrUE IF IT WAS AVAILABLE, 

, _ _., /> /v i* t/ r*i nfc *. i * SL - .. - -.. .. . - ... .. 

OTT CKRRNI * 
AVAILABLE) X RETURN TRUE IE THE EVENT IS AVAILABLE (AVL 

EMITVCI2)) EMITO(LNG)) GO CKRPN) 

- ACQUIRE) X WAIT "Ftm-TTVfgTT OR" TI WE OUT" " 

PEND) X WAIT TILL HAPBIT OR TIME OUT 

EMITNCT2)) X ADDRESS OF THE EVENT 
_ rMTTtttr .. Tt ^ tr THrtr . stLbIT Etsc HARB j T j f 

IF ELCLASS#C0MMA THEN BEGIN eRR<556)j GO EXIT 
STePIT) AEXP) X TIME OUT IN SECONDS 

EMlTO{»EL)> EMiTO(OED) X LEAVE RESULT OF FUNCTION ON STACK 
GO CKR#NI 
"HAFFEtiE^ ) X R E T U R N-S"Tftt)t- IF ~ THE' EVE R T HAS THE HAPPENED BIT ON 

EMITVCT2)) EMITPAIRCHAPBIT.LND)) EMITPA I RCHApB I T» Eqd ) 
GO CKRPN) X 

TT WO> a ir HOT XT 
PANA) IMITOCLNG)) EMlTpAlR(OiLNG)) EmHOCEOL)) 
GO EXIT) 

Tr-EttfcA*$- ■■+ - rtP"«*t* th^n rRRtw j else st-eptt) 



BIT OFF) 



END) 



CKRPN r 
EXIT) 
END 



BOOLEAN IMPLIED FUNCTIONS) 

ir elclass»taski p~the* oo to- tntr-wtjn AfriTHweT re 

GO TO LIB I X FOR SAFETY ONLY 
Llil IF BOOLEAN<ELBATtlJ,VO) THEN X BOOLEAN INTRINSIC 
B E G I N B I M PFU N ) G 0~TO -Tp-CttpT -X~1TLtrOir^ " AND" t "ATTEH 



LIB) Ll9i L20) L22) L23) L24 I L26 ) L27 ) L28 » L31» 



L32I 



IT 



L33I 



06210020 
06210030 
06210040 
06210050 
06210060 
06210070 
06210080 
06 21 00 90 
06210100 
06210110 
06210120 
06210130 
06210140 
06210150 
06210160 
06210170 
06210180 
06210190 
06210200 
06710210 
06210220 
06210230 
06210240 
06210250 
06210260 
06210270 
06710280 
06210290 
062T03O0 
06710320 
06710330 
06210340 
06210350 
06710360 
06210370 
06210360 
06710390 

06 Tl D 400 
06210410 
06210420 
06210440 
0671^0450 
06210460 
06210470 
06710480 
06210490 
06210500 
06210510 
06210520 
06210530 
06210540 
06210550 
06227550 
06734500 
06235000 
06235500 
06236000 



r 



IF ACLASS»TASKlD THEN GO TO LODPOjNTi I NAME CALL 

~~ rr-lTTL|"SrS-|fFYETfTTI5 THEN GO TO L22) X NAME OR VALUE 

COMMENT IP THE INTRINSIC IS ONLY IMPLANTED IN LINE EMIT 
IF TAKECWhOLE+WhOLE,[33I2]) < T H EN FLAG(552)» 

lf tuCLA s 5) »TA5Kio then - — — 

BEGIN TaSkATTR!BUTEHAnDlER(FS)I GO EXIT EnOI 
PROCEDURE IPC5TATEMENT(W)| VALUE Nl INTEGER W| 

— ^efrTir ~*~ valu e -pr-w-TysstP r 2 3 



ON TASKID 

call eventid 

AN ERRI 



LABEL EXIT* 
SWITCH STMT|» 
DEFINE HApBI T» e rr 



AVLBIT»1#J 
REAL El 

"tT~-* T E P I *-frCf TPEttCH THE* 
IF STEPI * EVENTID THEN 
EI»EUBAT[I3> 

go to vim urn 



Li BERATE t PROCURE* WAlTt CAUSE* RESET? 

L I BERATE.PROCURE* WAIT, CAUSE* RESETi 
*"BT T 1 44 Ttr-T r-OH tr THE~rVf NT" HA S HAPPENED 
* BIT U7ilJ IS ON IF THEN EVENT IS NOT 



07217515 
07217517 
07315100 
07315200 
07529300 
07729400 
07560000 
07760 lOO 
07560200 
07560300 
OrSFOflOO 



BE15IN ERRCiOSri GD EXIT END? 
BEGIN ERRC557)! GO EXIT END* 



liberate* x call com a* passingi event addr* 0* not - 
procure! i calfc com 44 passing! event addr, i» not - 

"WATTt X C A Ei;""C0-ff-44 "PAySlNtTT "EVENT ADDR, 8* NOT - 



RESETS AVLBIT 
GETS CONTROL 
SLEEPS TILL HAP 



RESETt 



EM ! TN ( E ) I 

EMITL(IF W«l THEN ELSE IF W*2 THEN AVLBJT ELSE HAPBIT)| 
~t M I T L < ) 1 If-Wri -THtN" TMTT DtLNG"} I " E WT Tp A 'TR C 44 » COM 7 J 
EMITO(BEL)! EMITOCDEDI EMITOCDEL)! X CUT BACK STACK 
GO EXIT! 

-1TT0W -OTT "HAPPENED "BIT ' 
X TURN OFF HAPPENED BIT 
EM|TV(E)I 

TTT~"Hp 4 ™THE"N '" bO*" ELS'E fc't!G~M 
IF W«5 THEN EMiTO(LND)» 
EMfTNtt)* EMIT0{STD)1 

" IF STE 6l-^-"RTP-ffRE^ T-Hftt EPvPtl04> ELSE STEPlTj 

END IPC STATEMENT! 
PROCEDURE PROCESSTATEMENTI 

iPtf *TfRH*fc< AH »-AP? * Ai*3 n T ASK f 0-J * 
REAL EiTl 
INTEGER N»MftRK*PCNT| 

Label bad t-;m -- 

dffine fault(f) *» begin t««f» go bad end*, ff*18|15#| 
lPC j°!i tF T 3l f!?PAg ANC ^ E ^ L (|PCJ0 B J t !:H ) * 1?> * cc-unt process 

^^-.sl^^ .__—.. *_.. r T HEN "fWtfT { 55* J * T~WITST" "B£ "ETCTfltWAL 



scatterelbati 

emito(mks)! x mark stack for char mode cut back 

IF Nl»TAKE -(- MARKI « Ll lsrKf^lN C R r 3WCr-THeN GO TQ 11 1 

IF STEPI ' LEFTPAREN THEN FaULT<105>J 

DO BEGIN 

" IF BOOLEAN! ( T |» T AKE< MARK* P CN T I »PCN T »1 TjV H n TH£-H"X~1ira-ttJE 



WITH XITR AFTER 
f pARTWETTRS 



AVAILIABLE07560500 
07760600 
O7760TO0 
07760800 
07560900 
0756T0D0 
07561100 
07561200 
07561 300 
07561400 
07561500 
0758 1600 
07561700 
07561600 
07561900 
07562000 
0756 2100 
07562200 
07762300 
07562400 
0T5625O0 
07562600 
07565000 
wt!>b5w25 
07765050 
07765075 
075651DU 
07565125 
07565150 
0T765r75 
07565200 

0756 5250 
075552T5 
07765300 
07765325 



STMNTS 
PKOTTEDtfRE 



COM 



BEG 1 9 STEPlTf X 

IF EXPRSS*UF 

f aul tc rmr 

END X 

ELSE X 

BEGIH 



t»class*booid 

rt|— 



THEN BTYPE ELSE ATYPE) 



07565375 
THEN07765380 

orrmes 

07765390 
07765400 



X NAME CA tt 

IF STePJ * T.cLASS TheN FAULT(i23)| E»»ELBATtUJ 
IF 800 ARRAY ID S ELCLASS S INTaRRaYJD THEN 

B EG I N EM|TP Atftt€TtOP 1t~ T t»41 — 

DO UNTIL STEPI»C0MMA OR ELeLASS-RTPARENi 



07565450 
07565475 
Q7T633t)0 
07765525 



END 



BEGIN EMlTN(E)! 

TI.IF ELCUASS»EVENTID 



THEN 1 ELSf 21 STEPlTI 



Tmr 



TYPE 



Zl 



END NAME CAUL$* 
EMlTunJ X PARAMETER 

FNtt " ' " 

UN T IL EuCUASS # COMMA OR PCnT*NJ 

IF PCNT # N THEN FAULTC128)J 

IF ElC L"a"FS~-r ~R T P A H E N'TRtN "TlUf T CI « ) V 

IF STEPI * LFTBRKET THEN FAULTC560)* 

EMITLCN)| X NUMBER OF PARAMETERS 

- ir~STEFT "*-TT&*X\y THEN FAULTC560 ) J 

EMlTPAlR(El*BATtl3fU0D)l 

IF STEPl # RTBRKET THEN FAULT(560) ELSE STEPITJ 

EMlTPAlR(«g»COM ?T"T G"ff "DU -fT 

EMlTNtXITR)! X CALLS FIRST SYL OF SEG 1 -EXC- T CUT BACK STACK 
IF PAUSE THEN 

-wmr— tR-RTTn "" 

END PROCESS STATEMENT| 
PROCEDURE TftSKA?TRlBUTEHANDLER(F)l VALUE F| INTEGER 

-XOWMTNT TOirVTTlrtBtrTT HANDLER PROCESSES ALL TASK 

IT IS EXPLICITLY CALLED IN 2 PLACESl 
IN STMT PASSING F • FS, 

THTrWANDLES TASK ATTRIBUTE ASSIGNMENTS BY CALLING AEXP 
IN PRIMARY PASSING F * FP, 

THIS ALWAYS LEAVES A VALUE ON THE STACK, IF 
"TS RE OU I RED"'!T-TS"M"ADE" "WTTH A ^S"Nt> w , IT NOT 



Ft 
ATTRIBUTES. 



II 



21 



AN ASSIGNMENT 
THE CURRENT 



END 

BEGIN 
RTAt 



VALflE OF THE ATTRIBUTE IS LEFT ON ThE STACK, 
ACTUALPARAMETERPART AND BpRIMARY DIRECT TRAFFIC THRU THE 

— AWr-ttTTRY-TOTNTS TO DO THETR WORK, 

CoMMENTi 



-E-r i NTEGE R-ATTrcrXr 



Et*ELBATtl3l X TASK ID 

if stepi » CeRiod then 
stepjti 

IF ATNDSl" 



Tr~ft~ * " 9 T ASK V* 
* 
* 



IF 
IF 

-tr 



Q 





if a 

«562 

then r b tftttttrt 



"4MFIDQ" 
"3FIOOO" 

"7STACK" 



then 

then 

then 
-the*-. 

then 



tlse 

ELSE 
ELSE 

ets-c 

ELSE 



562 



■*-tm*tcow*Etr * t trtbu t z 

THEN 



IF STEPr * ASSIGNOR 
BEGIN X SET ONE 

Tr „ jTt ^ v ^ THlE;1r ^^-(363)7 x CANT Bf CHANGED 

STEPlTI aexpi 

IF ATNDX*3 THEN X TSK, STATUS ReOUjRES A COM FOR POSSIBLE DS 

BtGTN EM I TP ATRTETLTrOTT TWTTP Al fT? 'VfitOlOT ~ 

EMITO(OEL)* IF F*FP THEN EMlTOCDEL>* X CUT BACK STK 



END 
E LSE 



J U S T C HA NG E -TWr ATTrI BUTE" " 



BEGIN EMlTL(ATNDX)i EMITNCE)» 



07765550 
07565575 
07765600 
07765610 
077655T5 
07765625 
07565650 
07765675 
07565700 
07565725 
07765750 
07765775 
07565800 
07765825 
07565850 
07765875 
07755*017 
07565925 
07565950 
07765975 
07765985 
07566000 
07766025 
07766050 
07766075 
07566100 
07766125 
07566150 
07766175 
07566200 
07566225 
07766250 
07766275 
07766300 
07356325 
07566350 
07766375 
07 766 400 
07566425 
07566450 
07566-475 
07566500 
07566525 
07566530 
07566575 
07766600 
0T5"56~625 
07566650 
07566675 
07766700 
07566725 
,07766730 
0756673 5 
07766740 

07566745 
077166750 
07566755 



1" 



EMITOCIF F*FP THEM SNq ELSE STO)l 
ENDfX 

END 
ELSE 
"T7~TW "THlfW" FL AG ( 564 ) I M J SSI NG I « 
ELSE 
BEGIN EMlTL(ATNDX)! 

END" " 

ELSE ERRC56PJ X MfSSlNG 
END TASK ATTRIBUTE HANDLER* 

~ """ HTi"TF 

IF 



EMITV(E) END! 



IF 

IF 



N 
Q 



IF 

IF 
# 



Q 

Q 


Q 





THEN 1 ELSE 
THEN 2 ELSE 
THEN 4 ELSE 
THEN 5 ELSE Oj 
IPCSTATEMENTCN)! GO XXX 

"fpRocE" Then begin proceSstatementi 

BEGTN * IT T +2 I S EVENT I D THEN ITS IPC 

IF TABLE<I*2)»EVENTJD THEN 

BEGIN IPCSTATEMENT(3)I GO XXX ENOI 
NTiTJ CIW2I 



* «8 LIBER* 

* "7PR0CU" 
m "5CAUSE" 
i "5RESET" 
THEN BEGIN 



ENDJ 
GO XXX 
WAIT 



ENDI 



END ELSE X 
0CT01320OO0Q0140OOO, "3FIX00" 
"0"C"Tt)T3 00000Q624"Ot> Ot> » 
OcTOi320000»0240000» 
OcT0132000000640000, 

-0-c T(rt Jtrotrootoo 4 oo o o » 

OcTO13OOO0O0636O0OO f 
Oc TO 132000090760000, 

OcTOJ320000?036000o! 

Oc TO 13200000056 0000, 

-0^T04 31W)02*0flOO01> o -, 



0cT043O0OO2Z0000O00, 

0CT1440000250000000, 

-OTT 30 00260 000 » 



*4NABS0 H 
"4FREE0" 
"4PEND0" 
"3T*lt0O" 
"8SYSTE" 
"8N0BIT" 
*TiWT* 
"'AVAIL" 

"8HAPPE" 
*4TASK0* 
"5EVENT" 
"4SIZE0" 
•4FAST0* 



Oc T00300002JtO000O00 , 

OcT20000000»0004050# 

0, _ 

692 STEP 3 UNTIL 728, 732 

Tro-tmrrL— steptwbi gtkv 



"MIDOOOOO", 
"SONOOOOO", 

'**EWOOTHr"y 
"ableoooo", 
w nedooooo"# 



OCT2000000000100000* 
OCT20000000001 00000 # 
OCT 2000000000 100000* 
OCT2000000000100000t 
OCTOOOOOOOOIUOOOOO, 
OCT 2000000000 100000* 
OCT2000000000100000, 
0CT20OtrOtJ0t)a01OO0O0» 
OCT2000000000100000* 
0CT20O00000O0100012, 



IF 



"4SL0W0" 

COMMENT POWERS OF TEN l 
tOMMtNr SORTA t 

COMMENT LASTSEOUENCEiLASTSEQRQW I 
STEP 4 UNTIL 746, 750 STEP 2 UNTIL 756 

OR~X 

ELCLASS»DECLARATQRS AND ELBATt I) , ADDRESS»PROCV* I 

elclass*be6iNv then x compile an jnvqkable i p c program, 



-sttrrtr - - 

IPCJ08I*TRUEI 
ENDI 
t f REAfa ttP^^OB-?-# 



IUI-1I X BACK UP TO LOOK AT PROCEDURE 



-fr-THCtt"-t--> N VOKEfr -OR" TNV 3ttW 1 PC 



BEGIN 

IF MARKIwRrAL(lPCJ0B),t33ll5] DIV 2 * 

-tr - 1 d a r r a rt»n «#t * t a* rrw tm > * o then 

BEGIN X BUILD PARAMETER DESCRIPTION 
Lt»OJ 

D0 pRT[-©yLTr»-* ~ ' 

IF 



THEN X INVOKED IPC 

X MAS PARAMETERS 

SEGMENT 



ELCLASSI*{T|*TAKE(MARK4LI*L*1)),CLASS 
m EVENTiD THEN 1 ELSE 
TF ™B OtJUlWA YTD^E L"tfA"S S*T NT ARRATI O THEN 4 EL SE 
IF BOOLEAN(T,VO) THEN 3 ELSE 2 



07766760 

07566775 

07766800 

07766825 

07766850 

07766875 

07566900 

07766925 

05766950 

07566975 

07810200 

07810210 

07810220 

07810230 

07810240 

07810250 

07 825 ODD 

07825100 

07825200 

07825300 

07825400 

X71309214421 

X7I 6092 14422 

X71909214423 

172209214424 

X72509214425 

172809214426 

X73209214427 

X 7 3609 21 44 ZB 

X74009214429 

X74409214430 

X74809214431 

X75009214432 

X75209214433 

X754 09214435 

09214436 

09214437 

09214440 

09214445 

09214513 

09252000 

09252025 

09252100 

092522O0 

09252300 

09252400 

0*4^5500 

09405505 

09405510 

0? 4055 15 

09405520 

09405525 

TT9T4055IO 

09405535 

09405540 

09405345 

09405550 



X756 
X758 
X759 
X760 



IPC 



r 



6T1I»IF 

$ void m/iooi 



UNTIL L*NI 
IDARRAYC9.]l«M0VEAN0BL0CK(pRTtN«l>l 

— _ — TNTT INVOKED T?C JOBT 

lDARRAY[2 3,£3l2]l»2+REAL(MARK|iO)| 
COMMENT SE60t23,[3ll3 « JAR[2],[6UJ • IPC JOB 
— —■— "StTjOtrj, t *M t w i»*RC«lYXrt-1 1 » INVOKED T PC JOB I 
END IPC SET UPI 

if booaRRayiostypesintaRRayid or type«taskid THEN 

TF TTtmWAXril^TOtJTAND" NOT P2 THEN 

BEGIN 

PJt«Pj+ll X COUNT PARAMETERS 

TDtnTSFTiTF TPrJOB THEN «ETSPACEfTRUE.l) + 6AxPJ X PRT 

ELSE PJ* X STACK 
END 

"""" Et'ST ~ 

if stopgsp then addrsfi«o 

ELSE ADDRSFt«GETSPACECP2#l)l 
FOVARH7TYTDSTYPE5 f NTA-RR-AYTD W TYFf«TA5K itt AND NOT IPC JOB 

ptog Then if ipcjob then level else levelf else leveli 



T"VVT"S TASK DEC LA R ATT ON 



BEGJN 
LABEL 



EX1TJ 



JUMPCHKXI 
IF GTAUJ' 



X 

13#0 



typevmtaskidi 

IF NOT SPECfOG 



THEN FLAG(25)| X CANT USE OWN OR SAVE 



THEN EMITO(MKS)! 
~150tTS*~''A'teL" "0F~ "Tfli: L jST 



IF ELCLASS#8eMi COLON THEN FLAG(0)J 

if SPECTOG then go exiti 

-E* fTbt 3 ) I E Hi ft Tt**- -WT*t TGTfrl 1 1 ■>-* * SlZf * 
EMITPAIR(1*SSN)I X ASK BLOCK CONTROL FOR SAyE 
EMITV(S)I X CALL BLOCK CONTROL 



dtm-enstqns* 
task arrays 



# task 



TXTTT 

end 



TASK ENTRtl 

ipcomple*e*taskdfc»eventdec» X 

- A U X S I TE~R*» —X "3*0 tfSr Or - A UX ME M 



I 

0* 



P C 
STTE 



PTRDEC»DEFlNEDEC»AUX$IZERRtAUXSIZERR.TASKDEC»EVENTDEC» 
LPB«f36li23*» PJFL0*tl6l53#» X 

VUlDT-pTTWOT ' " 

IF SPECTfG THEN X DOING A PROCEDURE SPECIFICATION 

if Bup*pj then x all specifications processed, do clean up, 



B E GIN 



FlwFZEROJ 
DO 



09405555 
09405560 
09405565 
09405570 
09405575 
09*055*0 
09405585 
13330550 
13342000 
13342250 
13342500 
I33TT2T50 
13343000 
13343500 
13344000 
13344500 
13345000 

13170000 
13371000 
13595025 
13595050 
13595075 
13595100 
13595125 
13595150 
13595175 
13595200 
13595225 
T35*5250 
13595275 
13595300 
1 3595325 
13595350 
13595375 
13595400 
13595425 
14016700 
1-401*800 
14021000 
14023000 
T4t)6T999 
14070000 
14071000 



" " — ■ - " ■ 14072000 

X 3*1600" « F+0, PARAMETER BASE ADDRESS 14073000 

BEGIN X LOOK THRU PARAMS LAST TO FIRST & PUT IN PROC+INF014074000 

— frt »TAKE t-wri^tfr*mrirTr-*-gi^^ 

WHILE PJ#CIF IPCJOB THEN G.PjFLD ELSE G.ADDRESS) 14076000 
DO Gt«TAKE(BUPl«8UP*TAKE<BUP+l) t PURPT)J X GET PJ-TH ONE14077000 

- T Y PEV TWTi7CtrS-ST— - - 14078*00 

if ipcjob then 14079000 

g,pjfldi»0 x 14081000 

Et8x ; - - ■— r4-08?00-0" 

IF TYPeV.FRMTlD OR TYPEV-SUPeRfRMTiD THEN 14083000 

G, ADDRESS I i«Ft«F*2 X LEAVE ONE FOR INDEX 14064000 

ELSE ^lr085000 

IF BOOARRAYID $ TYPEV S INTARRaYID THEN 14086000 



B 



1" 



BEGIN 

eTiUNUTAKE(BUP + Tn«G, INCH) J 

G,ADDRESSIbFUF*NI»N*H XlEAVE ROOM pOR LOWER BOUNI 
WHILE N?wN»UO DO 

" Tr~T2T*TA1CCCtftJP*TT*NT < « THEN 

PUT(ABSCT2i(4x(F»N)+2)LPB),BUP+Tl+N) 
END 
EL«E G,AD0RE5St*Fl«F+l I 
PUT(GtBUP)! G.INCRI«GTll X UpDATE PARAMETER INFO 

if fwdtog then 

■~ 9E9TN 

IF (GTll*TAKE(MARK+Pj)),CtASS#G, CLASS THEN 

FLAGU9)! I CLASS ERROR FORWARD TO ACTUAL 
IF GTl,VO#G,VO THEN FLAGfSO)) 

END 
ELSE 
— — TtJn g »"M»RK+ P J 71 X PROCEDURE If D9 T T I ON AL I NF ENT R Y 

END 
UNTIL PjI*Pj-l»Ol X 
"SFEtJTOGIJfFALSri 

if ipcjob Then % wrap up ipc set up & start compile 

BEGIN 

T"PraOFriBODCEANT2XHARXJ? X FAL^E * POINTS TO * INFO 

IF STEPli»BEGlNV THEN FLAGC551)* 

EUBATC I], CLASS! «SEM I COLON! 

GO TO START? X NOW W CAN COMPILE THE IPC JOB 

END* 
GO TO HFI X NOT I PC • GO COMPILE THE PROCEDURE 

n^o-N~im*p-"tjpT — - 

STOPDCFil(EI»DUMPVi»{GTAttJl«J + l3«#ELBATrn,AODRESS) l »MONiTORV) 
ERRORTOGI»TRUEJ 

■•tr- 1 P C J ofr-Tttt-f* -x- - 

IF SPECTOG THEN X VERIFY THAT PROPER TYPES ARE BEING PASSED 
IF BOOV < GUGTAltJ] S INTV OR G*ARRAYV Oft G-EVENTV THEN X OK 
- ELSE FLA6 ( 550 n- *~ - 



IPC0MPLETE» 



AUXSIZERRI 

task dec < 

-EVttfTDf-C-t" 



tiskei go to gotschki 

-PttwTftUr* rNTERTEVENTrCH GO STftRTI 

scatterelbatj 

if ipcjob then x make "myself" task array entry at r + *25 

g EGIN % - : - 

TYPEVtuTiSKlDI C0UNTI*6I SCRAM1*( ACCUM{ 1) l« w 6MYSEL"> MOD 1251 
ACCUMt2]J*0»' , F"tll43l5]l 

' 90" DO I T A S Y W A TT~ 

END! X 
S VOID 14305001 

IF NO T IPCJOB T HEN ~ ' ' 

IF LEVEL < 31 THEN LEVMODECLEVELI «LEVEL*1 J • »M00E ELSE FLAG<39)| 
PJ$»0| 

* VO I D 143 2 40 1 ~ 

IF STEPli*SECRET THEN FLAG(OlO) X WAS NOT IN PARAMETER LIS1 
ELSE 
BEGIN ™ " 

G»«EUBATtIJI 

if lSdF ipcjob then g»Pjfld tiH g i aodress>spj then 

Pt^C-l. t Atrt - t+n - *~ W * $ N9T 1 N TOtM At " P *1W*t T E* LI *T 

PUT(TAKE(G)iU10«47»n*G)l X MARK AS VALUE PARAMETER 



.4087000 
.4066000 
.4069000 
14090000 
[ 409 TODD 
14092000 
14093000 
1 4094000 
14095000 
14096000 
19997000' 
14098000 
4099000 
14100000 
14101000 
14102000 
[4101009 
14104000 
14105000 
14106000 
14107000 
14106000 
1 4 II 3090 

.4114000 
14U5000 
[4116000 
.4117000 
L4U8000 
1*119990 

14129000 
14130000 
[4133100 
^4133200 
14133300 
[4133-490 
14135500 
4155500 
[4155799 
14302100 
[4302200 

[9302399 
[4302400 
[4302500 
[4302609 

4302700 
[4305000 
[4 323999 
[4323100 
[4323200 
14324909 
[4345000 

4346000 
[4347000" 
[4348000 
[4349000 
[ 4359999 
L4351000 



END X 

TUT'd T4T54~O01 " 

IF IPCJOB AND PJ«0 THEN X PARAM IPC PROCEDURE DEC 

GO TO JPCOMPLETEJ X 
TTr-SPXrrOTTlHEN ^TTOSTTtRT-r J AND FNOC ES^ TWT SPEC IET CATIONS 

IE STEPltFORWARDV OR Q»"8eXTER" X EXT ILLEGAL PARAM CK IN PROCESS 
IF ELGLASS * FORWARDV THEN X EXTERNAL 



■Btrmr- 

IF PROlNFO, CLASS # PROCID THEN FlAG(558) X MUST BE 

ELSE PUT(TAKE(PR0INF0)*IPCPR0CID CLASS* PROl NFO) * 
wtr* 

ELSE % 
NUMBER 411 FOR XALGOL CONTAINS 22 CARDS 



$# PATCH 

-*T ^ftfTS -DOCtmtftTS~THE 
021 BLOCKI 



14352000 
14353000 
14377000 
14378000 
14 379000 
14467000 
14469025 
14469050 
UNTYPE14469075 
14469100 
14 4 6 9125 
14469150 



IPC 



-S50- 

551 

552 

553 



'TPrrf 



rEcr 



554 
555 

556 
557 

-3sr 

559 
560 

-5-6T" 
562 
563 

"5*4- 



tRROR- MESSAGES. 1/5/^73 

SAVE OR AUXMEM APPEARS IMMEDIATELY 
BEFORE IDENTIFIER (NO TyPE), 

AIT TOE NT I FTE*»" OF" TFT"S CLASS CAN NOT BE 

PASSED TO AN INVOKED PROGRAM, 

MISSING BEGIN AFTER SPECIFICATION PART, 

THIS INTRTNSXC CAN NOT BE PASSED AS A 

FORMAL PARAMETER, 

A TASK IDENTIFIER MAY NOT BE PASSED AS AN 

EXPLICIT PARAMETER TO AN INVOKED PROCEDURE, 

PARAMETER MUST BE AN EVENT, 

AN INVOKED PROCESS CAN NOT FIX OR FREE AN 

EVENT PASSED TO IT, 

MISSING COMMA IN ACQUIRE OR PEND FUNCTION, 

PARAMETER MUST BE AN EVENT, 

AirT*TEttN"AL IPC FRtTcTDtrtfE MUST BE UNTYPED, 

PROCEDURE MUST BE DECLARED EXTERNAL, 

MISSING OR INCORRECT TASK PART, 

MISSING , IN TASK ATTRIBUTE PART, 
MISSING OR UNDEFINED TASK ATTRIBUTE, 
TASK ATTRIBUTE IS NON ASSIGNABLE, 
WTSSTNG A^STGNMEWT OPERATOR" IN TASK 
ATTRIBUTE ASSIGNMENT STATEMENT, 
FOR XALGOL CONTAINS 8 CARD& 
T-Ht~^Rtm* -S^T-ftTt-MENT - 70* I ft , - 0NL Y~ VALUE PAR A ME T E RS 
TO PROCESSES THAT IS "RUN", 3^19/73, 

PARAMETERS TO A "RUN" TASK MUST BE VALUE, 



IPCPROCEDUREDECI 
ACTU-ALFA-^A-FARTI 

PROCESSTATEMENTI 

BIMPFUNI 
BIMPFUNI 

BIMPFUNI 
IPCSTATEMENTI 

BLOCKI 

PROCESSTATEMENTI 
PROCESSTATEMENTI 
T-ASl^TtRTBUTEH-ANDLERf 
TASKATTRIBUTEHANOLERI 
TASKATTRJBUTEHANOLERI 
T AS KAURI BUT EH AWtrCtft1 



** patch number 412 

-— H— Tt>| S PR O v IDE'S 

$1 CAN BE PASSED 

565 PROCESSTATEMENTI 
% AN p _ 1 . .^^ . Trt y i ^ JtmXtrrnott p tmtt ^ ^ - r Af» 7 ^ r TA S"K1 D T J 

REAL E#TI BOOLEAN RUNNER! X SET TRUE IF CALLED AS A "RUN" 
RUNNER1*Q,(42I6}#0I X 5TM CHARACTER OF "RUN" * 0» PROCESS - E, 

If RUNNE R THEKf -F-A-UtTt565)i X -frttr RtJN PftfrAMS- WU5T BE VAL WE 

IF RUNNER THEN EMIT0CSSN)I X STARTUSERTASK USES • FOR A "RUN" 
IF ••"7PR0CE" OR Q«"3RUN00" THEN X IPC INITIATION 

Biq i n PROCES STATE M E N T I 00 XXXTTrPrt 

PATCH NUMBER 413 FOR XaLGOL CONTAINS 2 CAR0S 

MAKES TEMPORARY ASSIGNMENT FOR EXTERNAL PROCEDURE DECLARATIONS, 



S# 

SI 

-rr 



3/go/ fr 



SPRT[(PRTlMAXl«PRTiMAX-l),[38l53jl« X REUSE PRT CELL 
BOOLEANf*) AND NOT BOOLEAN( 2*PRTl MAX, [43 15 ] ) I 



$* PATCH NUMBER 414 FOR XAIGW CONTAI N^"T"C"*KU 

$1 STOPS OEFINES WHIN PICKING UP ATTRIBUTE NAME, 3/22/73 

STOPOEFINEUTRUEl STEPITI X PICK UP ATTRIBUTE NAME 

$t P A T CH NUM BE R 41 5-Ttm--X1tn;0t"CiyNT^T1^"'6 "tA^gSr - 

SI THIS CHANGE INSURES THAT THE LEXICOGRAPHICAL LEVEL OF THE TASK ID 



00041000 
00042000 
9030*990 
00306905 
00306910 
00306915 
00306920 
00306925 
00306930 
00306935 
00306940 
00306945 
00306950 
00306955 
00306960 
00306965 
00306970 
00306975 
00306980 
00306985 
00306990 
00306995 



00307000 

07765035 
07565050 
07565135 
07765435 
07765815 
07810245 
07810250 



14469H0 
14469H5 



NO DEFINES 07566425 



00000010 



w 
m 



m 
m 
m 



St IN A PROCESS STATEMENT IS NO LOWER THAN THE "DEEPEST" NAME 00000020 

-ST"P*F*frETrR~nr»"*r invocation, 8/4/73 dhb 00000030 

566 PROCESSTATEMENTI LEXICAL LEVEL OF TASK LESS THAN A NAME PARAM, 00307005 

INTEGER N,M*RK,PCNT,MAXLVLI X 07765075 

- Tr ~STEPT * T.XLASS T H1N FAVLTn23>r * WRONG TYPE 07565450 

IF (E»»ELBATm>,LVL > MAXLVL T H EN MAXLVL* "E.LVLI X 07765465 

IF (EMELBATtn).LVL < MAXLVL AND MAXLVL > 8 THEN FAULT(556)> X 07765835 

rRTTFATRrri LW37 X 07765850 

S# PATCH NUMBER 416 FOR XALGOL CONTAINS 4 CARDS 

St T HI S CHANG E INSURES THAT AN IPC PROCEDURE lS NOT COMPILED TO "GO" ANDOOOOOOlO 

SI CHECKS TO SEE m*T No MORE TRAN 29 PARAMETERS ARE ALLOWED IN AN 0000O020 

SI IPC PROCEDURE DECLARATION* (SEE MCP PATCH 708) 8/4/73 DHB 00000030 

567 PROgRIMI COMPjLE AND GO OF INVOKED iPc PROCEDURE NOT ALLOWED, 00307010 

5*8 - BLOC*! A* INVOKED"" IPC PROCEDURE CAN HAVE ONLY 29 PARAMETERS, 00307015 

IF SAVETlME«0 THEN BEGIN ERRORTOG UTRUE J FLAGC567) ENDJXGO WHERE09252250 

IF IPCJOB THEN IF Pj > 29 ThEN FLAG(568)1 X TOO MANY PARAMETERS 14335000 

■-$-#- patch~n umber ~4 it" nm xat gtol "corrrATN*~ 5- c *~rd~s 

THIS ADDS A »EW TASK ATTRIBUTE "INITIATOR" WHICH CAN BE SET AND REAO,QOOOO0iO 
IF "INlTjATOi" lS NON ZERO WhEN A TASK jS INITIATED IT WjLL APPEAR AS00000020 
tr TT ORtGTNATEO TRDM THE STATION WITH THE INDICATED INTERNAL LINE: 



S? 
SI 

S1 

SI 



NUMBER, 



ELSE 
ELSE 



S# 
Si 
~$rr 
SI 
SI 



SIZE* 

cards 
of the 



# DIMISIONS, # TASK 



formi 



11/21/73 DHB 

IP o * "7stack" then 
•— - - - - rt~« * »*tW i* then 

562 X 

* 582 X 

-■cwtrtt * ) r tnrrt t m e m t tl cgta u o i ) t % 
patch number 418 for xalgol contains 2 
this provides an indexed array row write 

am Tc ( r ! i, j ArxFTAfmrrrNDT i it 

it is the us|Rs responsibility to insure t h at aexp*indx does not 

EXCEED THE ARRAY BOUNDS , 1 1 Z24/72 

~~ " T*»litP» - X LOCAL PATCH LEVEL 1 1/24/72 

S VOID 08672001 

S# PATCH NUMBER 419 FOR XALGOL CONTAINS 5 CARDS 

-$-rTHT$- PROVIDES TRX 'TAFTJBTLTTY-TO FROGRAHAT I C ALL Y GENERA TE A ME MOR Y 

SI DUMP IN ALGOL OR XALGOL BY THE STATEMENT! -t/15/73 

SI DUMPNOWC INTEGER)! 

..... fi ^ Tt , t .__...^_ t0cAt p ATCH tEVEL - 1/11/73 DHB 

If 0*"7DUMPN" THEN X DUMPNOW(W) MEMORY DUMP 

BEGIN PANAI EMITL (0)1 EMI TPA lR( 48.COM) J X 

- rffTT a rD Ttri"EWTTO(DELM"GD TO XXX7 X 



62 CARDS 

x-ref-and -Btwo 



END! X 
S# PATCH NUMBER 420 FOR XALGOL. XV, 1 CONTAINS 

s » T hi s M AK ES-trf nc i ENc r improvements - td~- the 

S VOIDT 01001778 

ARRAY XREFAYl[Oll03iXREFAY2tOI293.XlNFOtOl31iOll27)l 

INTEGER XREPPT , XLUN) -X • 

DEFINE 



00000030 
00000040 
07566575 
07566580 
07766599 
07766600 
13595325 

00000010 
OUOO0U2O 
00000030 
00000040 
01831100 
08668000 



01831100 
07810500 
07810525 
07810550 
07810575 



XREFlNF0lRtCI*XINFOeR»(C) DIV 2JI. X 
XMARKMF XREF THEN XREFAY2CXREFPTM J I«nAbS(*)#I 
►l-31-J-t— TNTf 6f R ™*Sf*tttf * - X" f OR" -&£ttfr- 
BOOLEAN DEFINING! X BEND 
S VOjdT 0100765* 

STREAM PROCEDURE "STtrFFTLVT; #1T»tJTt" TAXUt ' Vn, THJ 

DllwL* DS|*8 LIT » "1 SjIkLI DS|*i3 WDS! 



PATCH 7/29/ 7 30frOW©Tt> 
01001750 
X FOR XREF ONLY 01002000 

"■"■"'" ~ '■ "~0"l002l00" 

01002200 
MARK ASSIGNMENTO10023O0 

ottfo*4fr0 

01002500 
010 07100 

02 1965 30 

Dll»DI«4l 02196550 



IF Q 



0Sl«LlT"t w l SlIwLOC LVLI D*'f«2 DEC! OSt»LlT«)"j DSl*8 

-S-TqfF (BSP lNT»BEG l1'rS-T»CltC-BSPOTWTr>L1 R*T — ~ " 

• "AXREFO" THEN BEGIN SWITCHI T( XREFBl T ) I GO AGAIN ENDI 



DECJ02196560 
07r9tf5*0 
02419100 



s 



t" 



IT - , 
PT0GI«FALSE> 



* VOID 02*19121 02419110 

IF NOT ENOTOG THEN X DONT XREF COMMENTS FOLLOWING END 02882050 

Trr*5nn v -sorta then x not "algol" i dent in e« 02882200 

►TRUEI X DONT XREF THESE THINGS 05442500 

X 05443500 

- — - TF-XREFTHEN - % DONT COVNT THrS OCCy^ANCE IFt0r648^? 

XREFPT*XREFPT-REAL(ELBATtU,LVL#0)HSEEN 8410264804 

IF XREF THEN X DONT XREF SECOND DEC OF SAME VAR 13348000 

— - -X1?EFPTTsXHrFpT«REAL(LEVELF^0ll * GET RID OF LAST XREFI 3348100 

END! X 13348200 

DEFlNINGfTRUEl X We ARE 14255500 

.._._ — TF""X'HFr'~THfrW X DONT COUNT THIS AS AN OCCURANCE 14259077 

XREFPTI»XREFPT*REAL(ELBATtl3»LVL#0)l X IF SEEN 84 14259078 
PTOG»"TRUEl E* PTOqI«FALSEJ X DONT XREF DEFINE PARAMS14259096 



IF 



~wnmMT*Fit"Sr? rwr are not 

IF XREF THEN % FORGET THE PARAMETERS SPECIFED IN A FORWARD 

if gutake(MaRk) > o Then x or external declaration 
bjq j n sp7rcn"D"sm»G yr xluni ixlvn*~g endj 
xlun > o ano errorcount • then x we did some xreffing so doittoit 

IF NOT NOHg AOlNG ThEN WRjTeXLINEEPAGEJ ) I OaTIMEI 

~TY01TJT "1/05555S ~" ' "" " 

STREAM PROCEDURE PUP(S,D)I 
BEGIN 

-$rr*ST onwr 

60UF sc«" " then uump outi dsi«chR>* 

DSIpIOLITw "| SltwS) SH»SU32> Sn*Si+26J X TO 5EG NUM 

- S 1 rt tffRT PS f «3LTT" **f DS|»8ChR| DS«*LI T"*"l 

endi 

defin e blank (p) = blanket< 14 »p )#, 

. PAY*t*TNf"> "" 

S VOID 17089999 

DO BEGIN 

— - TF~X-RtrFTn«rX1»|TFT*l»30 THEN 

BEGIN 

REA 0(DS K2»30»XREFAV2C*3)[E0f3* 

"~ XREFPTIiOf" 

ENDI 
IF (I l«XREFAY2rxREFPTJ),t2ll273>99999999 

~ tno~ """ """ 

UNTIL I,[9!i2] GTR 01 X DONT SORT NON XREFED 
BLANK(PAY)! 

IT~tT»rnnJTJfrE«^ TTE«~X ASTADTJRESST* A fOl THEN" 1 NEW 

II LASTA0DRESS,r9»123 GTR XREFAylt'J THEN 
BfeANK(PAY)l XREFPTtwO; 

-s-Wnr trrtroTOT— ' 



14268500 
14470900 
14470910 
14"47W20 
17001000 
17002520 
17047001 
17048000 
17049000 
1 7050000 
17051000 
17052000 
1705^00 
17054000 
17063000 
17064000 
17065000 
17073500 
17074000 
17075000 
17076000 
17t)77tr00 
17078000 
THEN GO TO E0FI17079000 

17079250 
ENTRIES 17079500 

17063000 
OCCURANCE 1709*100 

17095100 

17099000 

inotrooo 

17101000 

OtLAST ADDRESS ,C2H 273 1 XREFPTtPAYCn 3 11 710300 

_, _____ ...„ 17 10 30 10" 

BLANK(PAY)! 17103500 

** PATCH NUM0E R 421 FOR XAUOL CONTAINS 287 CA R D& 00000020 

h pl eme nts th e b6 7W --nitctitmc*^ t a rd optt -our a nd de »t mp le me nt s ooowoto 

Si THE "CAST" LIBRARY COMPILER FEATURE, IN ADDITION THIS MAKES SEVERAL 00000020 

SI IMPROVEMENTS TO THE READACARD ROUTINE, THE HANDELING OF VOID CARDS 00000030 

St IS COR R EC T ED AND THE " Eo ^tr~L*Bf-L"» PROBL ty'TTrTHE-^OMFrLCR 1S OOOWWO 

SI ELIMINATED, THJS LAST CHANGE MAKES 9*S CARDS OPTIONAL ON BOTH THE 00000050 

■** ___£____! T * PE -_^ ES » 0000060 

SI NOVEMBER 20* 1973, ■'• DAVE BROWN^^^^^UrST^CUSTOWS^ SA^N "TJTEttO"* C~A V 00000070" 
S VOIDT 00305681 00305010 



BLANKCPAY)! 
PUP2(LASTaDDRESS lss 



» VOIP 



m 



READACARDl UNEXPECTED END OF INPUT, 

STaHTTNc CODING I NESTED INCLUDES NOT IMPLEMENTED, 

FIRST INCLUDE CARD MUST NAME A FILE, 

ILLEGAL FILE IDENTIFIER, 

roXG*L---$F«UTNCr NUMBO ON INCLUDE CARO, 

FILE MUST HAVE BEEN USED BEFORE FOR * OPTION, 

BAD SYNTAX ON THIS InCl u DE CARD* 

YOUR INCLUDE FILE IS NOT ON DISK, 

BEGINNING SEQUENCE NUMBER IS NOT IN THE FILE, 



staRTjucludingi 
staRTincludingi 

"START INCLUDING! "" 

staRTiIcludingi 
startincludinoi 

- -S-TTf RTTNCttTD TUG I 

startincludingi 

ADDVALUEtTOTALNO* 



"0T001524 



INCLUDE IN PROCESS, 
ELABORATING A DEFINE, 



615 
"82"U 

621 

622 

—521 

624 
625 

—tttr— 

627 

INTEGER 
S VOI D-T 

t voidt 

THE LAST CHARACTER IN THE TAPE AND CARD BUFFERS, I 

*--VOTDT~Or 33 900l 



> 3 
~*~" VOIDT 0iJ9820f- 
SAVE ARRAY DEFINEARRAYtOI253l X Ot3*(MAX NEST DePTH)*1 (SEE 1498100) 
DEFINE LASTSE6 « DEFINEARRAYJ 25)#» X TEMP STORAGE FOR SEQ OF CARD 

~" - t^Tttwr « TXTTm$KKTV2*\t'i % FOR CALLlNIi CONV 

LASTERR » DEFINEARRAY[24J#I X HOLDS SEQ NO OF LAST ERROR 
F ILE INC LUDE DISK SeRIAL (1*10,150)1 
"T~VUTD'T 01 56Jtn5T 

FILE DSK1 DISK SERIAL [201300] 
FILE DSK2 DISK SERIAL [201300} 

-Wr - mmxr -xwrrrTwrrri buff r 01 *i 1 

* VOIDT 0156J451 

* VOIDT 0i57600t 

* V O IUT 0lf4330| - 

* VOIDT 01764001 
INTEGER SAVLASTfSEDilLCRI X FOR INCLUDE 

-RE AL I N CLC R-i INn^ftGEI * fW INCLUDE OPTION 

**«•*t3• , X LOCAL PATCH LEVEL 
S VOIDT 020016H 

* VQlpT 02013721 - - ; 

BOOLEAN PROCEOUlE START INCLUDING* FORWARDl 
BOOLEAN PROcedUHe REAOINCLUDEJ FORWARDl X 



(2,10.30)1 X FOR XREF 
(2.30.30)1 X FOR XREF 
X INPUT BUFFERS 



H/20/73 UHB 



t VOipT 021345 0f- - - 

PROCEDURE WRiTEtuNE* % 

IF SlNGLTOG THEN WR r TE( LI NE , 15.LI Nt * ] ) X 

n; ^ r WR j TE ctTNtrDBl,'3»T57t;TNt*T)r * 

S VOIDT 02182251 
DEFINE PRINTCARO « BEGIN X 
D S I «L I T« w T-yrTlL-trC"SYMffOL1 ST I iSl *7t 

DSIwCHRl 0S»«2LJT" "» 

SWITCH SWIbLCARD.LCARD.LTAPE) X 
■<■■ .■■■:-■■ ■ ■■ C ARDNUMBfR I *IF TOTALNO < 0~THEN~^0TALNtrT«AB5rrTOTAL"N0 7*1 

else totalnoi»totalno*addvalue 

* VOIDT 02193001 

_ c ft an g l s i o r crftONUMBErR »vcnn 

IF LASTUSED > OR NEWINCL THEN 

IF SAVLASTU5ED»3 THEN GO TO LTAPEJ X INCLUDE CARD WAS ON TAPE 

* VOIDT 02 2 8 251 - " " " 

DEFINE SEQCBMPARE{TtCR#CLCR) * X 

* VOIDT 02203001 

MEpi U M I »»C f -X— f*OH" CARD -READER 

LCRI»TLCR| LASTUSEDM3I 



00415000 
00420000 
00421000 
00422000 
00423000 
00424000 
00425000 
00426000 
00427000 
01000860 
OIQ0T490 
01331000 
01336000 
01337000 
01394700 
01398000 
01398100 
01491000 
01498100 
01498200 
01498300 
01561010 
01561011 
01561025 
01561050 
01561056 
01561065 
01575000 
0lT4?200 
01756000 
01783000 
01784000 
01831100 
02001010 
0201 mo 
02065700 
02065800 
02131500 
02181000 
02181250 
02T8T5W 
02181750 
02182500 
02185250 
02185500 
02191250 
1)21*21*00 
102192250 
02192500 
021*3250 
02193800 
02194600 
t)Zl9850Q" 
02202500 
02202750 
02*03250 
02204000 



e 



M|0IUM»»"T"! X FROM TAPE 

MEDIUM I «"P"f X CARD PATCHES TAPE 
LASTirSEDI«3J J ]N CASE OF EOF ON 
READ(TAPE.lO,TBUFFt*3)tEOF]J 

t VOIOT 0220850| 

XJUiTUSEDUTr 



TAPE 



#. % END SEQCOMPARE DEFINE 

0IDINCLUDE*REAL(DGUURTOG)«»"H"#J * 

rABrL"USTTHE5WTTrT(VC A"RTJONLY » CARDLAST. EOF » TAPELA ST t COMP AR t E X I T t X I T'l 

BOOLEAN D0UAR2T0G* % 



VOJDT 02211251 
TA5TUSED*! 



IF 
IF 
TT 



LASTIJ$ED»3 
LASTU5ED*2 
t"AiiTUSED>0- 



thzh 60 to c a-rtjonlt i 
then so to tapelasti 
then go to carduasti 

then x include 
then go usetheswltch 



ELSE GO EXITI X 



IF READtNCLUDE 
VOIDT 02215001 

LCRH » CL, CR » X 

VOIDT 

READ(CARO»10»CBUFFI*3)CEOFJ| 
TF LA STUSEDiri THtN GO TO t*TT| X CARD ONLY 

IF LASTUSED»1 THEN X EOF ON CARD MEANS BYE-lYE 

BEGIN IRRORTOGtwTRUEl ERRC615) END* X BRANCHES TO ENDOFlTALL 
rrr-tTtsTt^EDWT-THtN X EOF" ON TAPE * SWITCH To CARD ONLY 



C*| GO EXIT ENOI 

*#"), "COMPILER'S "99999999" J 



T 
BEGIN LCRI"CLCRJ LASTUSED i"»l I MEDIUMIW 
FILL CBUFFtll WITH «("! END-OF"»"-FlLE 
"Y-VDTDT"~072TBTJtJ| ~ 
S VOIDT 02219001 

READ(TAPEtlOiTBUFF[*])[EOF3) 

T" VOIDT 022240VJ ~ 

SE«COMPARE(TLCR»CLCR)l 
S VOIDT 

'-r-'TOTTjT— ~ " 

IF C0MPARE(MKABSCLASTSE0)»LCR)«1 THEN X 
PUT5 EQN0CLASTSE0 »LCR)I * 
CARDNWMgfR I #C ON VTfrSjrGttt #5 "g&Tt ' "X 

NcRl*NeR*32768| X OVER "*" (CHAR MODE POINTER) 

dollarcardi * 

TT-NftT- D 1 1 N C t tjOt "THE* X 

IF LISTPTOG OR PR !NTDOLLARTOG THEN PRINTCARDI 
IF D0LLAR2TiGUEXAM!NCFCR)«» " AND EXAMI NfFCR+32768 )■«*" THEN 



* VOIDT 
S VOIDT 

NCRI»NftR*32768*32768| % OVER " *" CChAB MODE POINTER) 

i r 1 INCLUDE ' THE* tjO-^SETHttWTT-tHt- X 

$ VOloT 02235251 
OUTPUTSOURCE* 

CA R DCOUnTI w CAROCOUNT*!* - 



r voiut 



IF OMITTING OR X 
D0LLAR2T#G THEN 



GO USETHESWlTCH) 



VOIDT 

Tcrrrrr 



OPTIONStOPlNX*! )|»REAL(B|*TRUE)I X 



S VOIDT 
ALONGi 

S VOID T - - - " ~ - - 

STREAM PROCEDURE GET VOloC yP» NcR. VR, LCR»SE«) I VALUE NCR»LCRJ 



02204250 
02205500 
02205750 
02206000 
02206250 
02209250 
02209750 
02210000 
02210250 
02210500 
02210750 
02212DOO 
02212025 
02212050 
02212100 
02212200 
02213500 
022T5500 
02215750 
02216250 
02216500 
02217250 
02217275 
02217500 
02217750 
02216000 
02218250 
02218750 
02219500 

072T9T50 
02T24500 
02224750 
02225500 
02226000 
02228000 
02228 1 00 
02228750 
02229000 
02229200 
02229250 
02230000 
0223 WO 
02230500 
02230750 

omtrotj 

02234251 
02234500 

ft n « i h *■ ft 

w22T4T>0^ 

02?35000 

02235250 

02235500 

02334000 

02335000 

07T3WOO 

02353000 

235650 

O235600t)~ 

02359100 



Li 



begin 

CABtL t.TRARSl"- 

S>II*NCrj DlmVpj 0Si«8 LIT "0"J 

2<34(IF SC"" " THEN SIt*SI+l ELSE JUMP OUT 2 To L))» 

SH»SEI51 NCR | wsri'TAliLYl «87 GO TRANS ) X USE SEQ NO OF TH I S CARD 

If St*""" THEN 

- " " BTSTN 

S!i"SI+ll DH*LcRl DSI»1 LIT"""I X ST°PPER FOR SCAN 
N C R»»Sn X Te«P, STORAGE* SINCE N C R \$ "LO CA L" TO GETVOfD, 

TiTr'TEi™" then jump out else 

BEGIN TAlLY'*TALLUU 5H«Si + i EnO)I 
ENO 
ErSt BEGIN 

NCR|»Sll X TEMP. STORAGE* SINCE NCR IS "LOCAL" To GETVOID, 
DI t «LCK| DS«*i UIT" "1 * STOPPER FOR SCAN 

— *rrr-se**-*- then jump out else 

BtGIN TALLYi«TALLY*l| SI|*SH1 END)* 
ENOI 

-T1TA-NS-1 - ~ ' 

Sp*NcR| DI l»VP| DI I»DI+Sf * RESTORE POINTERS* 
N C Rl«TALLYJ OH»DI"NCRl os»»ncr chRj 
~0 T ■t*OT w *T- VfTwtnl "f "T it'." *LOC VP* t»0 I 

dt**vri si i»bOc vpi d$i»wdSjx address of void range, 

end OF GETVfilDI 

«OLXARToG-r»0-OLLARTOG OR TRUE? % 
$ VolDT 

GtTVoID(VoIDPLACE»NCR#VOlDCR,UCR*L,ASTSEQ)l X 

-r-v*oTDT- - " - ■ 

IF TLCR ■■■ THEN X FIRST TIME ONLY 
T6cRi»MKabS<TBUFFC9J)j 

'T'WDT " 

GtTVOID(VOlDPLACE»NCR»VOlDCR.LCR#LASTSEO)? X 
t VOjdT 

begin dollartogi»staRT|Ncluding> go exit end* 
if Q » "7in»ln" then x 

~~ --Bt*tN-*WlTCtt-Tt'NfWtNtLBlT)l Go AGAIN tNtJl X 

TOTALNOI*-(CONV(ACCUMCU»0»COUNT) + 1)| 
t VolDT 02583001 

CHANQESEBCClKD WUMgfR«XCR?I X RESTORE SEO Ft ELD FOR VOIDRANGE CHECKS 

DOLLARTOG|»HOLLARTOG AND NOT TRUE I X 
CROSSHATCH I X 
__ — __ -RTPARrNiXROSSHATcm X 

dollarqaRdj 

S VOIrT 02736001 

t vqidt og9oaoof - ~- - -— - - 

* VOioT 02999999 

BOOLEAN PROCEDURE READINCLUDEJ 

BE GIN 



label eofj x 

lcr > »i lcr j medium! » «m») 

" R E AD C I NC LUDE » 1 H B Uf F t ▼tJtfWH I "" ""' " 

ir oomPare(ilcr»inclcr)*i then % this card out of range 
eofibegin 

-LltSTU S E DI»SAVL a-STUST:tr» MTDI UWT* W C*1 X r*f CASf Of CARD only 

Readinclude»»true» 



02359125 
02359150 
02359175 
02359200 
02359225 
02359250 
02359275 
02359300 
02359325 
02359350 

02359375 
02359400 
02359425 
02359450 
02359475 
02359500 
02359525 
02359550 
02359575 
02359600 
02359625 
02359650 
02359675 
02359700 
02359725 
02366000 
02368000 
02410000 
0241 1TH70 
02439000 
02456000 
02458000 
02485000 
02486000 
02570000 
02571000 
02572000 
02573000 
02581000 
02582000 
0261)2800 
02603000 
02640000 

02530000 

02732000 

02»Uf 000 

02985001 

02986000 

02986100 

02986200 

02986300 

012986400" 

02986500 

02986600 

02988700 

02986800 







BUANKET(0,UASTSEQ)> X 

tco*trmti,troE >7 

enDi 
end readincludei 

B L E AIT -pWtrCEtWff " S T AR T TNO L tf OT NO I 
BEGIN 

UaBEU away#thruj 

■■"~ *r*t FTRSTTT7 TKTTGEK T'J»K| 

800LEAN SVNlWTOGl 

DEFINE FUAGIT<E)»BEGIN FLAGCE)! GO AWAY ENDff 
j^Kqj fft5Ti"STN£ WTOfif # * AXRiT*. NEW*fIRST# J 

IF OMITTING THEN GO AWAY! 
IF VOIDING |R VOIDTAPE THEN 
■ IF" COT=rPARtrWKffffSTCASTSEQ)»VolDCR)»0 THEN « 
IF VQlDTAiE AND LASTUSED«3 OR NOT VoIDTaPE THEN GO AWAYl 
CHANGESEQ(C]»RDNUMBERfLCR)| X RESTORE FOR LIST 



~ SvNEWTOGi*MWTMr" 

N£WTOGi«NEWfOG AND NOT NeWINcLi 

OUTPUTSOURCII caRdcounti«cardcount+h X 
-irpW T 06 1 iSVWlWTOG r 

tuRnonstoplight("x w »lcR>i * for scanning 

staRTiNcludingi*booleaN(«h ,, )i x tell ReadacaRd we did our thing 

■tr-Tr**Ti«toi«"^nrti«-rL««rTr*z»>r'* - cakt nest them 

SkAnj 

IF SAVuASTUSED»0 AND RESUlT#1 THEN FUAGIT(621)I X MUST NAME IT FIRS 

If-Rt-WcTwt THEN X FILE ID 

BEGIN 

IF COUNT > 7 THEN FLAG1TC622)* 
Tr** -*T -^01TECMAtACTtR5tt0tiNT»AcC-UMt-t}f3#T»ni 

IF INCLUDE|MFID*T THEN INcLUDE.Mp I D J*N E H J »T I 

SKaNI IF RESULT*2 THEN SKaNI 

- tr -RrstjtT* t -or covnt * r then flag i tc 6*2? 1 

Ti«" w l M0VECHARACTERS(C0UNT#ACCUMtUf 3.T»1)| 
IF lNcLUDEtFID#T THEN I NcLUDE .F I D » «N£W t »TI 

SKffT ' "" 

ENDI 

I NCLRANGE 1**199999999" I F J NDF IRST I»FALSEI 
-Tr"RrSnJtTw3"THEW"X NUMBETR- IS STARTING NUMBER 

begin 



THRU! 



FINDFIRST»«TRUE» first t»Ol 
TT~ C U n T ~>" * T MEN TL7S GTU62 3 3 I 

M0VECMIRACTERS{ COUNT, ACCUM[lJt3f FIRST. ••COUNT) J 
SKANI 
I F Q W 'ft^OOt^-OR 0r»2T00O0* THE W 

begin x thru specifier 

SKANI 
ty- RESULT yrO#-cOtWT-> B THEN FL A^ I T t <2"3 J I ' X B AD NU MB E R 



I$CLRANGEl*OI 

MQVECHARACTERScC0UNT,ACCUMtU»3»INCLRANGE»8«C0UNT)l 
-SKAirr - — - - 



END! 



END 

-2^ __ __ 

IF «*«t«OQQO" THEN X START WHERE WE LEFT OFF 
BEGIN 
IF SAVLASTUSE D e O"-frft-Nen*0 THE* FfrAtiTWWT 



M0VE(ltlBUFFt9]»FlRST)l F I NDF I RST I wTRUe* 



02966900 
02987000 
02987100 
02987200 
02*87300 
02987400 
02987500 
02967600 
02987700 
02967800 
02987900 
02988000 
02968100 
02988200 
02988300 
02988400 
0-2-988500 
02986600 
02988700 
02988800 
02988900 
02989000 
02989J 00 
02989200 
T02989300 
02989*00 
02989500 
02989600 
029*9700 
02969800 

02989900 
02990000 
02990100 
02990200 
02990300 
02990400 
02990500 
02990600 
02990700 
02990800 
02990900 
02991000 
0299U00 
02991200 
02991300 
02991400 
0299T5~00 
02991600 
02991700 

02*91 800 

02991900 

02992000 

02992 TOO' 

02992200 

02992300 

... ft ftftfttfl t Aft 

wZ "™Z4t/y 
02992500 



r 



GO TO ThRUJ 

tmi 

IF Q*"1XOOQO" OR XMODE^O 
ILCRUMKABSuBUFF[9j)1 
~Sr*RtrwnN C L 8!D E 1 1 B UF F T*~TTT 



AND GET * SEO NO 

THEN FLAG!T(625)| 



g BAD SYNTAX 



$ THEN FLAGJT(626>I * 
BINARY SEARCH FqR FIRST 



IF MAXRI»lB«jFFt53*l 

if findfirst then % 

"BFtSTN - - "" 

INCLCR|«MKABS(FIRST)| 

KI-MAXR+JI«1J 
-WHTtnt* < K~TTO Jivj*dt I W 

FOR KtwlM STEP IF J*0 THEN 

WHILE I > DO 

■■ ■ frrcrN - 

IF K * MAXR THEN Jl»l 
B W C T Kl 

~ — " ~l?rAT;-(TNCLTJDEtKI»iOiTBOFF(*J)l 



FILE NOT 
RECORD 



ON DISK 



DTV 21 

I EUSe 



ELSE 



I 



JI^CoHPAREClLCRt INCLCR)! 
END I 

TT*TF J*2 THEN ELSE I OIV 2; 

END! 

IF J#2 THEN BEGIN CLOSEC I NCLUDE ) I FLAGJTC627) END> 



-"" ~ EWD7 - 

SaVLASTUSEOIuLASTUSeOJ LASTUSED»»0> X WE ARE INCLUDING 

inclcrumka&sunclRange)* 

- BcANKrTlO-iLASTSrQyr ~Jf 

AWAYI 

END STARTINCLUDINGJ 



COMMENT ########»###############*###### ########################## 

FORWARD DECLARATIONS 
■ +ttttt*ttt *T*tttt1t1tttT9*tttttttttttttttt**t1t$*ttr*$tt$ttttttt 

MOVE(l#LASTSF«»LlN[123)l 
WRiTERR0R(REM0T0GtERRNUM,ACCUM[l]»LiN,Q,tlZl6],L 

-t-voitrF- - - 

M0VEci»LASTSEQ#PnCH(9))I X 

IF ErRNUM«199 OR ERRnUm*200 OR * 

" - " £RRtrtm«6i t OR E- RRNUM»6t5 THEN Oo TO EnDoF I 

LASTUSEDl»ll X CARD ONLY 
T0TALNO»*»-C1*ADDVaLUEI»1O0O)| 



02992600 
02992700 
02992600 
02992900 
029930T)0 
02993100 
02993200 
02993300 
02993400 
02993500 
02993600 
02993700 
02993800 
02993900 
02994000 
02994200 
02994300 
02994400 
02994500 
02994600 
02994700 
X NOT THERE 02994600 
02994900 
02995000 
02995100 
02995200 
02995300 
02995400 
030~OWOO 

########03000100 
03000200 

#######103000300 
05039500 

ASTSE8)I05044000 
OSGOOD 



* VOIR T " ' 

Nf XT I NFO IwLaST I NFO » *$0RTA+1 I 

BLaNKeT(1»LaSTeRR)I * BLANK LASTERR AND LASTSEQ 
" MtDTOMl"i' r e ir r LASTOSED !*!"» * ASSUME. CARD UNTIL TOLD 

CLCRI»MKABS(CBUFFf9])l X 

RRADACARDj X READ FIrST CARD AND OP^N FlL^S 

nextinfoi*lastinfoi*sorta*ii - 

$ VoIdT 09275551 

M0VECHARACTERSC4#LASTERR»O»6T1*4)| * 
MOVECHAR A C TFRS tindlS TERR » 4 »GT2 i 4 ) I * 

S VQIDT 09426001 

ERR0R(l99)» X GOES TO ENDOFITALL 

T iMiU^ T iHtd)! i- ^w-mr" — 



GETREAfYI X READY SET *»* GO 

BLOcK(fALSE)l X 

E NDO rrF-fttrti- " 

CLEANUPI X 



05056000 
05107100 
TALL I 05107200 
07030000 
09026920 
09CT2W00 
09033000 
09034500 
DIFFERE09035000 
09036000 
09037000 
0T27*9W 
09275100 
09415000 
09416000 
09421000 
1 3312 500 
~~t700000Tr 
17000100 
17600200 
IfOOOlOO 
17000400 



s 



$# PATCH NUMBER 422 FOR XALGOL CONTAINS 22 CARDS 
TT"THTS "PiTBVTUEFH- BEGIN- END MATCH UP AS ON T H E B6700, 

Integer newbegctioldbegctj x To match begins • ends 



DHB 11/13/73 



$ void 



EDI TL I NEILTTN* FCR» AlStUtUltSCTTrti it 36f 10 J"» MEDIUM* OH I TTTNG ) J 
STREAM PROCEDURE EDlTLlNE<LlNE*NCR#BEND»R*SYMBOL»OMI T)l 

VALUE ncr#beno»r»symbol»omiti 

~" -DFm.TT ir "*| NCTRDTi DM*Din7 j 

Sll»LOC BENOI 0Sl»4 DECI Dl l»0I -4 j D5|*4 fILLI DIl'NCRJ 
S I I*tOc SYMBOUl SII«SI*7| dsi«chRi DSl«2 LIT 1 * "I 

OU>BlGCTT«flT-T-irr frtnted IT 

$ VOID 02196611 

IF DEFINECTR * THEN X NOT IN A DEFINE DECLARATION 
" ~ — -— Tf"T;TC*«S--w BCGINV THEN 

oldbegcti*newbegcti»newbegct+i else 
if t t class • endv then 

OtuIN 

OLDBEGCTlxIF 0LDBE6CT > THEN 
NEWBEGCTt"NENBEGCT»U 



END I 



EDlTUlNE(UN,FCR»0," 



•medium, o)j 



ooooooio 

01002400 
01002500 
02182750 
02163500 
02183750 
02185250 
02185300 
02185500 
02196275 
02196510 
02869100 
0286*200 
02669300 
02869400 
02669500 
EUSE *NEWBEGCT102869600 

02869700 
02869600 
02910100 
05038000 
14255500 
14268500 



* VOjdT 02910801 

-*-VOTTjT-- ™ ■ 

$ VOJDT 

S# PATCH NUMBER 423 FOR XALGOL CONTAINS 15 CARDS 
-rr-THT*"CTmRECT3 AN© IMPROVES TrE CODE GENERATED FOR CASE STATEMENTS, 

st if a case index equal to the number of case elements will now 
si cause an Invalid index as all other invalid case indicies do* 

-$1 ti~ four sycckvtrs 0t~ unnecessary branching code is eliminated at 

$1 the end of the case statement, 

si 3f an extra word in the case branch segment is removed, 

tT~t/-8/T4 " " 

, n«4 15 W 

REAt UINK. LLINK, TEMP, 
— LAFEt-li-OOP-r XtT? ONOtfT* 
S VOID 07646421 
END ELSE 

^-tt7^A-S-S--«--CN0V TMEN- 

BEGlN IF N*0 THEN NUU 
IF LINK > AND NOT 



X 

N, 



LOCAL 
ADRt 



patch level 
prt» nulli 



1/8/74 DHB 



* AT 

x in case of empty 
gotog then x omit 

BrtSTir-CTNXTBtXTNirr LI «t*2 - ENfrJ 



CASE 
LAST 



STATEMENT 
BRANCH IF 



ITS THERE 



go onouti 
endi 

BEG IN EM I T ( LL TNKT*LTNK-? r t tNKtmt t -wfcM" ENDI 

END* X 
S VOID 07646551 

ONOUT I ™- 

S# PATCH NUMBER 424 FOR XALGOL CONTAINS 107 CARDS 



SI THIS IMPLEMENTS 
~S-r-TRr~DEFA"ULT 



SI 1/J3/74 



THE TRUTHSET AS ON THE B6700, 
TRimrSE'T -"NUMERIC*" IS ADDED , 



IN ADOITION 



549 TRUTHSETEI TRUTHSET SPECIFIER MUST BE A STRING, 

- ~in«i — conmtnt iwt 

«23#. COMMENT 271 
»24#l COMMENT 30| 

INTEGER NTSETS* XHTOWBT* or TROTTTSETS DFCLA"R ED* 3 

ARRAY TRUTHSETS[0lll9]J X CAN HAVE 40 



TRUTHSlTEl 
TRUTHSITID 
EVENTV 
TRUTHSETV 

N T 5ETSI 



ooooooio 

00000020 
00000030 
00T)00040 
00000050 
00000060 
00000*70 
01831100 
07646390 
076464 10 
07646420 
07646500 
0764*502 
07646504 
07646506 
0T64-65D7 
07646506 
07646509 
076*65*3 
07646538 
07646540 
076*63*6 

OOOOOOIO 
0000002 
00000030 
00306895 
01276075 
01298700 
01298750 
Ol5T9aO0 
01520000 



a 



POWERSqFTEn «fS0RTA»l)## 

STJTfTr *765#r * MARK XV, 2,0 2/i3/74 

t».424" X LOCAL PATCH LEVEL 1/13/74 
STREAM PROCEDURE DEBU(iW0RO( SEQ'CODE »FE I L) J VALUE SEQI 

._ _„_ 5tRC^DE| 



ANO NOT VBIT 
CHARACTER IN 
CHARACTER 
CHARACTER 
EMlTL(O)! 



IN 

IN 



EMITLCOJJ 



IF ACL*$S*TRUTHSETID 
OEFINE C^A * 29#« % 

" "" "~ "" cNHW 301' j X 

CNT m 3l#| 1 
EMlTO(MKS)! EMfTL(O)) 

'"TTUl 1)^07957701 

EMlTL(0)l 

EmiTL(BnA)I X CHARACTER IN A^PHA 
0T9579OT 
ELSE 
IF ELCLASS»TRUTHSETID THEN 

BEGIN" " "'"" 

SlMPLENAMEtELBATtU)! EMITL(CNT)> STEP|Tl 
END ELSE 
— ~ ""IF Qw*tNUMER* T HEN 

BFGIN 

EMlTLCO)) EMITL(CNN); 



THEN GO TO L22> X NO VALUE 
ALPHA 

NUMERIC 

truThsetjd 



YolO 

end 



STEPITI 



T^TTvr^NmrrsTRNGCOMpARE n ; 



NUMERIC 

truthsetid 

ALPHA 

NUMERIC 

TRUTHSETID 



$ VOID 07965601 



SWN « 25#, X SCAN WHILE JN 

SWT « 26#, X SCAN WHILE IN 

SUA k 29#i X SCAN UNTIL IN 

SUN * 30#» X SCAN UNTIL IN 

SUT * 3i# I X SCAN UNTIL IN 
B E G I N EMI TTTTT- -WH-aErONO THEN "SWA 
IF ELCLASS » TRUTHSETID THEN 
BEGIN EMlTLflF WHILECOND THEN SWT ELSE SUT)I 

- - " -STWPtTNAflE C ELBATtl 1 } 1 

END ELSE 

IP Q * "7NUMER" THEN 
"BTGIN EMlTLTTF-WHTLrCOWD THEN SWN ELSE SUN)* EMITL(O) END ELSE 



ELSE SUA}! EMITLCO) END ELSE 



COMMENT CONDI TTtm 



In 

IN 

in 
In 



fWN m 25#« X TRANSFER WHILE 

-ftrt-ir ZV9 » X TRANSFER WHILE 

TUT * 29#i X TRANSFER UNTIL 

TUN * 30#f X TRANSFER UNTIL 

1-Sl WWttT'lN AtPHlRi 

ORI UNTIL IN ALPHA. 
BEGIN EMlTLtlF WHILECOND THEN TWA ELSE TUA)1 EMITL(O) END ELSE 

-rr-Etttr*«-^-TnimtstT+o~TtrcN - 

BEGIN IMITLUF WHILECOND THEN TWT ELSE TUT)I 
SlMPLENAME(ELBAT[n>» 
ELSE — ~ ~ ~-- - ~ ~ - 



NUMERIC 

TRUTHSETID 

TRUTHSETID 

NUMERIC 
IWCTTC* TRUTHSETID 
NUMERIC* TRUTHSETIDI 



• ^1*0" 

ir m "7NUMER* THEN 

BEGIN EMITL(IF WHILECOND THEN 

-V^tO -O 79T5801 

OCTO132OOOO0O56OOOO. "8HAPPE"* 
0cT0«300003i0000000t "8TRUTH"* 

OCT00300002#0000 , "7P R0TE"* 

OcT 2000000000004050 » 



TWN ELSE TUN)I EMJTL(O) END ELSE 



Ol 



COMMENT 

COMM C NT 

4 



— 6 9 2 ST tf 3 U N T I tH^-f-^g-yffP 

ESDI 



"NEDOOOOO". 
w SE TOOOOO% 
*CT00O00O' , i " 

POWERS Of TEN 

SORT A I 



0CT2000000000100020< 



I 



01574000 
01580000 
01831100 
04130000 
04134000 
072J7513 
07957410 
07957420 
07957430 
07957440 
O7957700 
07957750 
07957800 
07957900 
07958010 
07958020 
07958030 
07958040 
07958050 
07958060 
07958070 
07958080 
07950X50 
07961811 
07961812 
07961820 
07961821 
07961822 
07965400 
07965410 
07965420 
079654 30 
07965440 
07965450 
07965460 
07965600 
07968410 
07968420 
07968430 
07968440 
07975200 
07975300 
07975500 
07975511) 
07975520 
07975530 
07*75340" 
07975550 
07975560 
07*75800 
X74409214430 
X758 09214437 
X761092T444D" 
X 7640921 4444 
X76509214445 



STEP 2 UNTIL 758,761 



09214513 
09360100 



e 



r 



N1SETSI«NTSETS»3I 

FOR M«0 STEP 3 UnTIL NTSET5 DO 

" ' - "'fiO'TTJ — ' 

M0VE(i*TRUTHSETSU1,PRTC(GTi!pTRUTHSElSU*2]) div 

GT1 MOD 128331 

- — - ttovtf-iTfHOTHsmmt *» p*tugt t r«im*i > oi v i28# 

GTi MOD 128l)| 

if booarrayidstypesintarrayid 

_ _ tnr ... TTPT ... 9 T - A 3 K J D 

or type * truth8etid 
______ then % must be called by name 

"PROCEDURE TRUTHSrTET" 
BEGIN 

STREAM PROCEDURE TRuThS£TTER(N, A#T)| VAUUe Nl 
BFGTWLDCAX CVCPT 

SllwAJ SIInSl+3) DIl*L0C CI 0II»Dl*7| CPI' 
N ( DII«CPI DS|*CHRJ DH*T? SKIP DBl SKIP 



OH 

c db; 



DS|*SET )| 



TnITSETTERJ 

label awayi 
if gtauj"1i#0 



THEN FLAG(25)J X NO SAVE OR OWN 



DO 



BEGIN 

STfPlTl P2I»TRUEI ENTRY(TRUTHSETlD)l 

~ rrsFtf tog -then tjo awayi 

TRUThSCTS [ nTSETS*23I*GETSPACE(TRUe»-i2)"1? % CONSTANT OR 

if elClass^leftparEn then begin errciosji go away endi 

- "tf -S-TE-tt^STRtNG A"ND "ELCLASS#STrnGCON THEN X BAD 

BEGIN ERR(549)I GO AWAY END) 
DO TRUTHSETTER(COUNTtACCUMtl JtTRUTHSETSCNTSETSJ) 

UNT I L 8TEP W TRlItt "M eLXt,ttSS*STRttGCfrNT 

IF ELCLaSS#RTPaREN THEN BEGIN ERRU04); GO AWAY ENDI 



ST 



IF OEBflGTOG THEN 
BTGTN-DTBttGWRDt* 
OEBUGWORD( H 
END DEB UGI 
N T S E T S lirWT SET'S +"31 
END 

until stepi#commai 



"*TRtJfMSfTSfNTSxTS3#LTN)* WRITELlNEI 
"iTRUTHSETSCNTSETS + U.LlNJl WRJTELINE* 



tWTT 
END TRUTSETDECERl 

TRUTHSETOEC# % 
p T RO E C t UrFTWUrC tHUXS 1 Z ER *? A UX S I Z ERH » T A SK DX C i E V E NTOE C 

truthSetdec* 
truthsetdeci TRUThSeTe* go to starti 

S» PAT Cr NU M B ER 425 T1?R-XArGOL COTlTATNS 4 CARDS 

*i THIS ADDS THE NUMBER OF SYNTACTIC HEMS PROCESSED TO THE COMPILER 

SI SUMMARY, I,E, 7700, 7'l6'74 DHB 

'tfT"AC T 1 1 ""HHE'WS" "S"C"A"iiiN E D # 

T0KENSl»»T0KENS*JI % COUNT OF SYNTACTIC ITEMS PROCE 

"PROGRAM CONTAINS"* I7»" SYNTACTIC ITEMS,"/ 
_ .^ ^^ ... j_ s mf% tm f TE14 . tf} W f 

PATCH NUMBER 501 FOR XaLGOL CONTAINS 3 CARDS 

THIS IS AN IMPROVE D VERSION OF PA TCH XIV , 1q5. IT COMP ILES A F I LE 
SUCH AS F JUE 'FfcE" 3"ABCDE* '•' 'jrvWTT'H'QUT 

makeiNg the use of octal and hex strings imPossable if the 

LAST THING ENTERED INTO ThE SYMBOL TABLE WA$ A FILE, 12/20/72 

vo id 02T6150 2 » vo i d *f*rrPr" — — — — — - 

IF SIqPEnTrY THEN DEFInECTRIb99| % stop octal hex problem 



It 

$1 

SI 
SI 

-t- 



09360200 
09360300 
09360400 

128*09360500 
09360600 
U9360TOO 
09360800 
13330550 
13*30560 
13330570 
13330580 
13595500 
13595510 
13595520 
13595530 
13595540 
13595550 
13595560 
13595570 
13595580 
13595590 
13595600 
13595610 
13595620 

RING13595630 
13595640 
13595650 
13595660 
13595670 
13595680 
13595690 
13595691 
1 3595692 
13595693 
13595694 
135*5700 
13595710 
13595720 
135*5730 
13595740 
14016750 

» TV97TW0 
14021250 
14155800 
OOOOOtWO 
00000010 
00000020 
0050 4 T75 

SSED02909500 
09274455 
09419250 
14155900 
14156100 
tt-WWO" 
14156500 
14156700 
0?761501T 
13080750 



/ 



r 



IF DIFInECTr>95 THEN DEFInECTri 
"0~FinTH NUMBER flOO" FOR XALGOL CONTAINS 35 
SI THIS PATCH ADDS THE CAPABILITY TO SYNTAX 
SI THE VARIOUS OCP CONSTRUCTS 
SI E R RORBHANCH A 1 T HI bU Tr~APPTO 6/3/72 
SI THIS IMPLEMENTS THE COMPILER PORTION OF THE 



0| X RESET 
CARDS 



DEFlNCTR 



X 

% 

% 

■»■ 
X 
X 
X 

% 

X 

I 

X 



laststation 

laststatus 

timeout 

ch**ttpe 

dcaccess 

DCUSE 
USERCXJDE 
STNSTATUS 
EXTENDED READ 
TRRORWRANCH 
EXTENDED WRITE 



FOR SYN LINES 



DFXT 



XWRITE ATTRlBUTEtll/24/ 
28 X 

-T"*t.TST-S» 

."♦0#LASTS w 

»R7TlM E 0- 
— i1T8TH*RT«- 

tBBDCACC" 

#*5DCUSE" 

♦ "fffrBUStRC" 
» w +09STnST w 
•*805XREAD" 

TfnWFRRTJtf" 
t "8Q6XWR I T** 

* X END OF FILL STATEMENT (WITH DcP STUFF SAFELY HIDDEN) 
NE NB ATTRTBUTT"S « X THr NUMBER OF STANDARD B I G B ATTR I BUTES 

l7#, % MARK XV. 2,0 2/13/74 

dcpoffset « x the number of over-lapped attributes 

5f» X HARK' XT, 2.0 2/13/74 

DCPAJRBUTENDX* (ATTRIBUTEINDX - OCPOFF5ET)#I 

E»ITNUM(IF ATTRIBUTEINDX* 1 THEN "6ACCE5S" ELSE 

TF ATTRTBtrTCTNOXts 4 THEN "60THRUS" ELSE 

IF ATTRIBUTEINDX»12 THEN "6ARASIZ" ELSE 

IF DCPATRBUTENDX»13 THEN "6LSTSTN" ELSE 

- tF trCPATRBUTOOXwt « THEN *6LSTSTS* 

IF 0CPATRBUTENDX»15 THEN "6TIM0UT" 

IF 0CPATRBUTENDXW16 THEN "6GHRTYP" 

tT DtPAT*BlJTENDX«t 7 THEN »6De ACES" 

IF DCPATRBUTENDX«20 THEN "6STNSTS" 

IF DCPATRBUT£NDX»22 THEN "6ERRBRN" 

«tP*TReUTtwOK*2S THEN *6XWRI TE» 



EUSE 
ELSE 
ELSE 
ELSE 
ELSE 
EL'Sf 



- IF 

& FlLEATTRlBUTEStATTRlBUTElNDX][6ll2l363 
& FlLEATTRlBUTEStATTRlBUTElNDXJtlUlU) I 

EtH-THtATTiMflU-TEiND-X - -■*■■ 

(IF ATTRIBUTEINDX > NBaTTRIBUTES THEN DCPOFFSET 

ELSE 1) 
- .j s REAt# CNWf p or N»FA> 1 39*47* 1 J 



13061250 

OOOOOOIO 
00000020 
00000030 

7200000040 
08493094 
08493121 
08493122 
08493123 
08493124 
08493125 
08493126 
08493127 
06493128 
06493129 
08493130 
08493131 
08493135 
08493501 
08493502 
08493503 
08493504 
08493505 
08493790 
08493791 
08493792 
08493793 
06491794 
08493795 
08493796 
08493797 
08493798 
08493799 
08493 600 
08493820 
08493830 
0849 3840 

+108493842 
06493844 
08493846 



trfrttt -0-CrtmOt)U8t)tTNt 00 1 T8WTE XEC UTE /R 



/R 



